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ABSTRACT 


A technology vacuum exists in the small combatant and support ship units of the U.S. 
Navy. Newer combatant vessels are typically outfitted with state of the art Combat Direc- 
tion and information processing systems, while their older sisters in the fleet are still using 


manual methods to do the same tasks. 


These shipboard tasks, which include contact management, moving geometry calcula- 
tions, intelligence compilation, area plotting and navigation, are all performed manually 
on-board older fleet units. These manual methods are extremely slow, are subject to poten- 
tially disastrous errors and require intensive training to perform correctly. The current 
level of computer technology allows the automation of these tasks, providing an instant 
solution to the user, with a far smaller error rate than could be expected of manual meth- 


ods. 


The prime objective of this thesis, The Low Cost Combat Direction System (LCCDS) 
User Interface, is to define the functional goals, constraints and general system design of a 
graphical user interface suitable for use aboard U.S. Navy vessels. Particular emphasis is 
placed on the design and implementation of a graphical display system, in the Ada pro- 
gramming language, necessary to interface the user to the capabilities of the LCCDS as a 


whole. 
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Vili 


I. INTRODUCTION 


This thesis addresses the design and implementation of a user interface, in Ada, for 
a near-real-time tactical information system. It is a part of ongoing research for the 
development of a Low Cost Combat Direction System (LCCDS) at the Naval 


Postgraduate School. 


A. BACKGROUND 


1. Low Cost Combat Direction System 
Development of the LCCDS is sponsored by the Naval Sea Systems Command 
(NAVSEA) as an economical alternative for providing Combat Direction System (CDS) 
capabilities to non-combatant ships. LCCDS requires a platform independent system 
supporting graphical windowing capabilities implemented on commercially available 
workstations. The ultimate goal of the system is to provide enhanced information support 
resources to commanders of naval non-combatant ships [SOW88]. 
2. Ada Programming Language 
The United States Department of Defense (DOD), recognizing the need for a 
single high level language for its sponsored applications, has mandated the use of Ada for 
all Defense related projects. Although Ada is an admirable language for embedded 
systems, it has no direct capability to provide windowing or the graphical support 


necessary to implement an effective user interface. 


3. X11 Windowing System 
The X11 windowing system, developed by the Massachusetts Institute of 
Technology (MIT), is the most widely supported graphical window system meeting the 
platform independence requirements of the LCCDS project. The X11 system, currently 
on revision 4, provides a very versatile environment for a programmer to implement an 
effective user interface to any application. As X11 is written in the C programming 
language, there are difficulties when trying to merge an Ada application which calls the 
C functions necessary to provide the graphics involved in a typical user interface. 
4. Software Technology For Adaptable, Reliable Systems 
The Software Technology for Adaptable, Reliable Systems (STARS) program 
is a US Air Force Systems Command sponsored project, developed by Unisys Defense 
Systems, which provides the necessary interface between an Ada application and the C 
language functions into the X11 Protocol. The Ada/Xlib bindings developed under the 
STARS program provide an Ada data structure allowing the binding of Ada subroutines 
to their C equivalents. The bindings provide a complete mapping to all the X11R4 
window primitives. 
5. Transportable Applications Environment Plus 
The Transportable Applications Environment Plus (TAE+) is a National 
Aeronautics and Space Admistration (NASA) sponsored project, developed by Century 
Computing , Inc. TAE+ is a complete graphics application environment, providing a 


suite of tools and programming aids allowing the developer to define a graphics 


application directly on the display screen. After completion of an application design, 
TAE+ will automatically generate either C or Ada compilable code , which can either 
stand alone as a running application or may be subdivided into packages for inclusion 
into another program. 
6. Graphical User Interface 

A user interface for a CDS environment must present the user with a wide 
variety of information for each display item encompassing elements of position, 
identification, classification and the attributes of course, speed etc. The wide variety of 
these items make a text based information display too difficult for the user to 
comprehend at a glance. A graphical interface can represent multiple items of 
information within a single symbol, presenting the user with a comprehensive display of 


information, easily understood with even a brief glance at the display screen. 


B. STATEMENT OF THE PROBLEM 


A graphical interface to the LCCDS is required to present the system user with a 
symbolic representation of information, easily understood with even a brief glance at the 
display. The functions of data input and retrieval must be simple and easy enough to be 
understood without resorting to technical manuals or help displays. Finally, but certainly 
not the most minor consideration, is the speed of system response. The interface must be 


able to respond immediately to user requests, changes in the system environment and 


new information entering the system. This near-real-time response rate places significant 
timing constraints on the interface that cannot be under-emphasized. 

This thesis implements a design of a real time system, using off the shelf hardware 
and readily available Ada software resources, for a typical CDS. The methodology used 
in this project, and the implementation structure employed to present the user interface 
can be readily transferred to any project requiring a graphical user interface requiring 


rapid response times. 


C. SUMMARY OF PREVIOUS WORK 


1. Seveney/Steinberg 1990 
A joint project describing the display and timing requirements for the LCCDS. 
Full details are available in [SS90]. 
2. Sun 1990 
Research into the various tools utilizing the X11 Protocol, with emphasis on C 
language toolkits. Full details are available in [SUN90]. 
3. Coskun/Kesoglu 1990 
A design and implementation of a text based C3I system utilizing the TAE+ 
application generator. Full details are available in [CK90]. 
4. Bolick/Irwin 1991 
A design and implementation of a Tactical Database for the LCCDS, 


researched in parallel with this project. Full details are described in [BI91]. 


D. RESEARCH APPROACH 


1. Requirements Study 
This research began with a comprehensive study regarding the elements of 
information required to present a CDS user with all the support necessary for an effective 
system. Extensive conversations with prospective users and surveys of Naval Officers 
with non-combatant ship experience provided a detailed list of items desirable in a 
typical CDS for shipboard use. A summary of those items is given in Chapter II. 
2. Design Of The Information Display 
Using the list of items desirable in a CDS, a design to implement all functions 
required for the user to access the necessary information was devised. Those items 
determined to be of immediate importance were assigned display screens and those 
screens kept up to date without any user interaction. The items of secondary importance 
were assigned to menu options allowing the user to call those functions as required. A 
Summary of the methodology and the final design decisions made is described in Chapter 
Il. 
3. Survey Of Available Implementation Tools 
After completion of the initial design, a survey of the tools available to 
implement that design was made. Only a very narrow range of tools currently exist to 
port Ada applications into the X11 Protocol. A summary of those tools is given in 


Chapter IV. 


4. Implementation And System Integration 
Implementation of the final interface design was made utilizing the STARS 
Ada/Xlib bindings and the NASA TAE+ application generator. The interface was then 
linked with the Bolick/Irwin LCCDS Tactical Database described in section C. Timing 


and response tests were performed with the results described in Chapter IV. 


Il. INTERFACE REQUIREMENTS 


An effective interface reflects the needs of the end users. To ensure that the initial 
design specification detailed in the Seveney/Steinberg thesis [SS90] accurately depicts 
the needs of the Naval Surface Forces, a survey was taken of 35 Surface Warfare Naval 
Officers. Fifteen of these officers had prior experience in surface non-combatant units. 
As a result of this survey, a number of areas not previously mentioned in 
Seveney/Steinberg were raised. The issues raised are presented in summary form, 


grouped by function. 
A. PLOTTING FUNCTIONS 


1. Station, Screen And Formation Plotting 
It 1s often necessary for a ship underway, particularly when operating with 
other ships, to be positioned in one particular area of the ocean. This area is often moving 
along with another unit and 1s called a station. The ability to plot the boundaries of these 
stations, allowing the user to see at a glance if the ship is "on station” was highly 
recommended as an addition to the interface. 
2. Operating Area And Grid Plotting 
When operating in normal fashion, ships are often assigned large areas of 
ocean to conduct their operations. There are several different predefined areas, known as 


Operating Areas or Grids, a ship may be assigned to. Ships are typically tasked to be in a 


particular operating area, or assigned to meet another unit in another area. The ability to 
plot these areas was desired by the users as a convenience to determine the necessary 
course and speed requirements to transit in and out of these areas. 
3. Amphibious Warfare Area Plotting 
It is a primary task of non-combatant ships to provide support to combatant 
units engaged in Amphibious Assault. Elaborate diagrams, detailing the proper position 
of all units required for the operation are currently drawn up by hand and must be 
referred to often. The ability to plot the diagram on the display screen was highly 
encouraged. 
4. Misc. Plotting Functions 
Several other plotting type functions were recommended, including PIM 
tracks, great circle voyage planning, lines of demarcation, anchoring approach diagrams, 
aircraft corridors, commercial air lanes and nuclear attack avoidance zones. Most of the 


items discussed were met with wide acceptance with the majority of the user group. 


B. DRAWING FUNCTIONS 


1. User Defined Line Drawing Functions 
It is often necessary for a ships officer to draw lines to delineate areas or to 
simply provide a frame of reference to conduct an operation. The capability to draw lines 
on the display screen, either anchored to geographical locations or to other moving 


objects was stressed as vitally important. 


C. RECOMMENDATION FUNCTIONS 


1. Contact Avoidance Or Intercept Recommendations 
The ability to have an immediate course and speed recommendation to either 
avoid another object or to intercept that object was deemed as extremely helpful to the 
user. 
2. Air Operations Recommendations 
Flight operations from a surface ship generally require a minimum relative 
wind speed and direction in relation to ownship to ensure the safety of the flight crew 
and platform. The ability to generate a course and speed recommendation to achieve the 
necessary wind conditions was mentioned as being very advantageous. 
3. Time And Distance Recommendations 
It is always the case that a surface ship is tasked with being at a particular spot 
at a particular time. The ability to get a recommended course and speed to reach a certain 


location at a given time was stressed as being of great importance. 


D. INTELLIGENCE FUNCTIONS 


1. Object Offensive And Defensive Capabilities 
There is an information gap, particularly among junior officers, as to the 


capabilities of the warships of other nations. The ability to call up the characteristics of 


any identified object from a central database was unanimously agreed upon as a desirable 


attribute of the LCCDS. 


E. LISTING AND TEXT ENTRY / RECALL FUNCTIONS 


1. Routine And Emergency Checklists 
Every ship in the U.S. Navy has certain procedures defined to respond to both 
routine operations and basic emergencies. These procedures are generally kept in written 
form as a series of checklists. The ability to maintain these checklists on line and record 
completion of each list item was regarded highly by the majority of the group. 
2. Watchbills And Daily Routine Summaries 
The ability to maintain on line the ship's daily schedule and the watchbills in 
effect for the various shipboard departments was desired by the users as a convenient 


reference to the Officer of the Deck aboard any surface ship. 


F. ENCODING AND DECODING FUNCTIONS 


1. Allied Tactical Publication Signal Encoding / Decoding 
Any time ships are communicating with each other over non-secure voice 
radio, particularly concerning movement orders or intentions, a set of signals defined by 
the Allied Tactical Publication 1 (ATP-1) are employed to minimize the chance of a 


signal being misunderstood. These signals are cryptic and must be encoded/decoded 
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using manual procedures at every occurrence. Although not thought of by the group as 


being necessary, it was generally agreed upon as a "nice to have" feature for the LCCDS. 


Il 


III. USER INTERFACE DESIGN 


Since the requirements for this project specified a windowed design, the design was 
tailored to fit the maximum number of functional requirements into a set of windowed 
displays. The process began by analyzing all requirements for two items: user interaction 
and information display. 

The requirements needing user interaction were separated into one logical grouping 
and those requiring information display into another. It became immediately apparent 
that most requirements have elements of both interaction and display as the two 
groupings were virtually identical. 

The effort, however, was not wasted. The two logical groupings became the basis 
for later decisions regarding menus and displays. The requirements needing user 
interaction led to menu options and those needing information display were assigned a 
display window. 

Due to the close relationship between the required user interaction and the 
information display, categorizing the design process as a series of phases is difficult. The 
method used to complete the design can best be described as having four parts, with each 


of the parts requiring frequent excursions into the others. 
Functional requirements classification 
¢ Functional category analysis 
¢ Information display analysis 
¢ Window sizing and position analysis 
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The figures shown in this chapter reflect the final design decisions made for the 


implementation of the vanous menu and information display items. 


A. FUNCTIONAL REQUIREMENTS CLASSIFICATION 


The design phase of this project was begun by analyzing the initial requirements 
described in Seveney/Steinberg [SS90] and the additional functional requirements 
described in Chapter II. A list of overall requirements, with an attendant list of operations 
required to implement them, was developed and classified into logical, top level 
categories combining function, operations and required user interaction. A total of nine 


categories emerged from this phase. 


¢ Track functions 

Plotting functions 

User alert parameters 

Display filtering parameters 
Intelligence input and display functions 
List input and retrieval functions 
Coding/decoding functions 

Range scaling functions 
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System input and display default parameters 
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Navigation functions 


Each of these categories contain elements of both user interaction and information 
display. To handle the required user interaction, one atomic label, to be used as a menu 


title, was drawn from each category. 
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At this point, the number of menu items forced a decision regarding menu 
presentation. A single menu bar, as shown in Figure 3-1, with 9 pulldown type items was 


decided upon as the best presentation for the end user. 
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Figure 3-1. The Menu Bar 
One additional menu item, allowing the capability to exit cleanly from the 


Information System, was placed into the title window shown in Figure 3-2. 


Tactical Information System 


Prototype Version 1.1 


Exit Information System 





Figure 3-2. TIS Title Window 


B. FUNCTIONAL CATEGORY ANALYSIS 


Each of the atomic menu options was analyzed to determine the minimal set of 
operations required to fulfill all elements of the requirements as classified in section A. 
Each set of operations within a menu option was limited to a size of five items to 


minimize menu congestion. 


14 


1. Track Functions Analysis 
This category covers all requirements dealing with the Track type objects. 
There are only three primary operations a user must be able to perform on objects of this 


type to meet all the requirement objectives. 


¢ Add a new track object 
¢ Delete an existing track object 
¢ Modify the attributes of an existing track object 


These three operations became the options for the Menu Bar pulldown button 


Track as shown in Figure 3-3. 


Add a New Track 


Delete the selected Track 
Modify the selected Track 





Figure 3-4. Track Pulldown Options 
a. AddA New Track 
In order to define a new track, all the attributes of a track object must be 


input by the user. The attributes defined for a track in the prototype system are: 


Position 

Course 

Speed 

Category (Track, Point) 

Classification (Hostile, Friendly, Neutral, Unknown) 
Type (Surface, Air, Sub-Surface) 

Height (or Depth) 

Identification (Country, Platform type, Name) 

Misc. comments 


2 
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(1) Position. Position can be input in 3 different ways. 


¢ Entering the position in Latitude/Longitude figures 
¢ Entering the position as a Bearing and range from Ownship 
¢ Entering the position by selecting a point on the display screen 


To handle the three possible cases, a separate menu window was 
constructed with radio buttons denoting the three mutually exclusive cases as shown in 


Figure 3-4. 


Enter Position by what Method? 


O Latitude and Longitude 


© Bearing and Range 
© Pick a screen position 


Cancel 


Figure 3-4. Enter Position Method 





Figures 3-5 and 3-6 handle the first two position entering 


possibilities and Figure 3-7 appears when the third is selected. 


Enter Latitude and Longitude 


Latitude © x 


Longitude (gy Se 


Figure 3-5. Enter Lat/Long Position 
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Enter Bearing and Range 


O True 
Bearing a O Relative 


Y 
Range 5 meres 


Cancel 


Figure 3-6. Enter Bearing/Range Position 





Cursor Position 


Bearing: Range: 


Lat: Long: 





Figure 3-7. Cursor Tracking Window 
The Cursor Tracking window will return the virtual bearing and 
range of the cursor from Ownship and the position of the cursor in Latitude and 
Longitude coordinates, disappearing when a screen position is selected. 
After the positioning method is selected, and the position input, a 
series of additional menu windows are presented to the user to input and/or select the 


remaining attributes. Figures 3-8 through 3-12 show the remaining sequence of menu 


SCTeens. 









Track Identification 


Category O Track 


O Point 


Figure 3-8. Name Attribute 
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Figure 3-9. Country and Platform Attributes 


Track Attributes 
Course[ _] Speed| _] 
O SurfaceO)Sub-SurfaceO Air 


O Waypoint O Nav Hazard 


O Non-DisplayableC) Man in Wate) 


[Enter]  [Cance] 


Figure 3-10. Misc Attributes 





Track Classification 


O Friendly O Neutral 
O Hostile O Unknown 


Figure 3-11. Classification Attribute 












Track Comments and Height 


Height | 





M | 
‘ 


Figure 3-12. Comments and Height Attributes 
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b. Delete The Selected Track 
When this option is selected, the system will delete the selected, (or 
"hooked") track. In the event that no track is selected, a prompt will appear to instruct the 
user to pick the track to be deleted. A window will appear containing the information on 
the selected track and asking the user to confirm the operation. Figures 3-13 and 3-14 


illustrate the progression of windows presented to the user for this operation. 


Please select a Track 


Figure 3-13. Select Warning 


Delete this Track ? 


Track # 1001 

Classification ; Neutral 
Name : Shoji Maru 
Comments: Japanese Tanker 


Figure 3-14. Delete Confirm 





c. Modify The Selected Track 
This option will allow the user to modify any parameter of the selected 
Track. If no Track is "hooked" the user will be prompted to do so as in Figure 3-13. A 
menu window, as shown in Figure 3-15, containing checkboxes will appear asking the 
user to select the parameters to be changed. The user will choose the different parameter 


categories to be changed and upon selecting the Enter button, a selective progression of 
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data input windows from Figures 3-4 through 3-12 will be presented to reflect the 


choices the user has made. 


Modify which attributes? 





Figure 3-15. Modify Select 
2. Plotting Functions Analysis 
The myriad of different plotting functions defined in the requirements called 
for a different design approach. All the plotting requirements were studied and classified 


into three logical categories. 


¢ Maps and Gnds 
¢ Zones and Areas 


¢ Sectors and Formations 


These three categories became the options for the Menu Bar pulldown button 


Plots as shown in Figure 3-16. 
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Maps and Grids 


Zones and Areas 
Sectors and Formations 





Figure 3-16. Plots Pulldown Options 


a. Maps And Grids 
There are two requirements specified for this area, one for displaying 
shore line maps and one for displaying UTM grid lines. Of course, if the ability exists to 
activate the maps and grids, there must be the corresponding capability to deactivate 


them. The four operations defined for this option are: 


Activate Shoreline Mappings 
Deactivate Shoreline Mappings 
Activate UTM Grid Lines 
Deactivate UTM Grid Lines 


ee ¢ © 


The four operations translated to 2 corresponding check box options as 
Shown in Figure 3-17. As the shoreline mapping and grid displays are not supported in 
the prototype, no functionality was attached to these options but was included for future 


development. 
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Zone [J Activate Shoreline Mapping 


Sectoy [J activate UTM Grid Plotting 





Figure 3-17. Maps and Grids Options 
b. Zones And Areas 
There are three kinds of zones and two types of areas defined in the 
requirements. Two of the zone types were compressed to one entry as the plotting 


mechanics are identical. The operations defined for this category are: 


Plot a Missile Engagement / Fighter Engagement Zone 
Plot a "Keep out" Zone 

Plot an Operating Area 

Plot an Amphibious Assault Area Diagram 
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The four operations were displayed as radio button choices in a sub-menu 
to the Zones and Areas pulldown option as shown in Figure 3-18. No further 


functionality was defined for these operations as they are not supported in the prototype. 
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Maps and en 


Secto Oo Piot Missile / Fighter Engagement Zones 


© Plot ''Keep Out" Zones 
| © Plot Operating Areas 
© Plot Amphlblous Assault Area Diagrams 





Figure 3-18. Zones and Areas Options 
c. Sectors And Formations 
There are two requirements specified for this category, one for sectors 


and one for formations. The operations required are: 


¢ Sector Screen Plotting 
¢ Formation Diagram Plotting 


The two operations were included in a sub-menu to the Sectors and 
Formations pulldown button as shown in Figure 3-19. No further functionality was 


designed as the operations are not supported in the prototype. 


Maps and Grids 

Zones and Areas 

Sectors and Formations 
O Plot a Sector Screen 


O Piot a Formation Diagram 





Figure 3-19. Sectors and Formations Options 
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3. Alert Functions Analysis 
All active alerts are defined in the System Setup menu so the only operations 


required for this category are the following: 


¢ Visual Alerts only 
¢ Audio and Visual Alerts 
¢ Disable all Alerts 


The three operations became the pulldown menu options for the button Alerts 


as shown in Figure 3-20. 


Visual Alerts Only 


Audio and Visual Alerts 
Disable all Alerts 





Figure 3-20. Alerts Pulldown Options 


a. Visual Alerts Only 
This option will disable the audio portion of the Alert functions. The only 
indication of an alert will be the text in the Alerts Display window. The Alert status will 
also be passed to the Screen Display and will result in the message "Alerts : Visual" 


being displayed on the bottom left side of the display. 
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b. Audio And Visual Alerts 
This is the system default status and will result in both audio and visual 
cues when an Alert occurs. The Screen Display wiil contain the message "Alerts : On" at 
the bottom left side of the display. 
c. Disable All Alerts 
This option will disable both the audio cues and the input to the Alerts 
Display window. No alerts will be generated. The message “Alerts : Disabled" will 
appear at the bottom left side of the Screen Display. 
4. Display Filtering Functions 
Like the Alert parameters, the Display Filter parameters are selected in the Set 
System Defaults menu section. Recognizing that the user may want to temporarily 


override the predefined filter values, two operations have been provided. 


¢ Disable all Display Filters 
¢ Activate Default Display Filters 


The two operations became the options for the pulldown button Filters as 


shown in Figure 3-21. 


Disable all Display Filters 
Activate Default Display Filters 





Figure 3-21. Filters Pulldown Options 


Zs 


a. Disable All Display Filters 
This option will result in the overriding of all Display Filters selected in 
the Set System Defaults menu section. All objects arriving into the Integration System 
Database will be processed and displayed. The message "Display Filters: Disabled" will 
appear at the top of the Screen Display to remind the user of the Filter status. 
b. Activate Default Display Filters 
This option will restore the system Display Filters to the default 
condition as prescribed in the Set System Defaults menu section. The message "Display 


Filters : Default’ will appear at the top of the Screen Display. 


5. Intelligence Functions Analysis 
The Intelligence system works via a system of keyword entnes into an 
Intelligence database. The only operations required to support this system are 
mechanisms to specify which of the Track attributes to use as the keyword entries to the 
database, and the ability to edit the database currently in use. The operations defined for 


this category are: 

Use Name for Intel Search 

Use Comments for Intel Search 

Use Country and Platform Type for Intel Search 
Edit Intel Database 
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The four operations formed the options for the Intel pulldown button as shown 
in Figure 3-22. No further functionality was included in this area as the prototype does 


not support Intelligence functions. 
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Use Name for Intel Search 


Use Country and Platform Type for Intel Search 
Use Comments for Intel Search 
Edit Intelligence Database 





Figure 3-22. Intel Pulldown Options 


a. Use Name For Intel Search 
Name is the default Intel search parameter. The 7rack attribute "Name" 
will be Batted to the Intel search routine each time a Track is selected from the Screen 
Display. The results of the search will be displayed in the Intelligence Display window. 
The message "Intel : Name" will appear in the lower right corner of the Screen Display 
to remind the user of the Intel search criterion. 
b. Use Country And Platform For Intel Search 
With this option selected, the Track attributes "Country" and "Platform 
Type" will be passed to the Intel search routine each time a Track is selected. The results 
of the search will be displayed in the Intelligence Display window. The message "Intel : 
Platform" will appear in the lower right corner of the Screen Display. 
c. Use Comments For Intel Search 
This option will pass the Track attribute "Comments" to the Intel Search 
routine. Each word in the Comments string will be passed individually and scanned 


separately. Due to the comparative slowness of this operation, it will only act upon the 
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Track selected at the time this option is selected and the search operation will be forced 
to terminate at the next mouse / trackball button event. The results of the search will be 
displayed in the Intelligence Display window. The message "Intel : Searching" will be 
displayed in the Screen Display. At the termination of the search, the Intel message in the 
Screen Display will revert to the last default selected. 
d. Edit The Intel Database 
This option will allow the user to edit the Intelligence database. The 
location of the editing screen and the mechanics of the data input will be determined by 
the database implementor. , 
6. List Input And Retrieval Functions Analysis 
This category covers all the requirements dealing with display and editing of 


text objects, such as Ship's Bills, Checklists, Watchbills and the like. There are two 


operations required for this category. 


* View a List 
® Edita List 


The two operations became the entries for the Lists pulldown menu as shown 


in Figure 3-23. 


View a List 
Edit a List 





Figure 3-23. Lists Pulldown Options 
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a. ViewA List 
This option will present the user with a list of radio button options 
containing the names of all the text objects currently in the system. Selecting one of the 
options will cause a text window, containing the desired text, to appear on the right side 
of the screen, overlaying the various information display windows. Figures 3-24 and 


3-25 show the text select and display windows respectively. 


Select a File 


© Unrep Checklist 


O Underway Checklist 
O Plan of the Day 


© Aviation Checklist 
@ Ship's Roster 
© GQ Checklist 


Cancel 


Figure 3-24. File Select Window 


* Ship's Roster [[ ] 


Name  Diyision Phone 
Bolick,B B 2727 








Figure 3-25. Text Display Window 
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b. Edit A List 
This operation will duplicate the form of the "View a List" option. The 
File Select window will contain the additional option "New File" and the Text Display 
window will become a Text Edit window allowing a user to edit the text within the 
window. 
7. Coding / Decoding Functions Analysis 
This category covers all the functionality set by the ATP-1 tactical signal 


coding/decoding requirements. The operations required to support this category are: 


¢ Decode an ATP-1 Signal 
¢ Encode an ATP-1 Signal 


The two operations became the entries for the pulldown menu button Coding 
as shown in Figure 3-26. No further functionality was provided as the coding/decoding 


operations are not supported in the prototype. 


Decode an ATP-1 Signal 


Encode an ATP-1 Signal 





Figure 3-26. Coding Pulldown Options 
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8. System Input And Display Defaults Analysis 
This category covers a wide range of required data input and system 
configuration issues. To keep the screen display manageable, only one operation was 


selected, with sub-menus as required to provide the necessary range of functionality. 


¢ Set System Defaults 


This operation, shown in Figure 3-2, leads the user to a series of menu 
windows which provide the interface into the additional operations required for this 


category. 
¢ Set System Filters 
* Set Alert Parameters 
¢ Set External System Inputs 
¢ Set Custom System Configurations 


These five operations became the basis for the pulldown selection window 


shown if Figure 3-27. 


Set System Filters 


Set Alert Parameters 
Set External System Inputs 
Set Custom System Configurations 





Figure 3-27. Defaults Pulldown Options 
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a. Set System Filters 

There are two types of filters defined in the requirements, Tactical 
Database Filters and Screen Display Filters. There are both conceptual and operational 
differences between the two filter types. 

Database filters will affect the number of objects to be processed by the 
Integration system. Those objects not meeting the filter parameters will be ignored and 
remain unprocessed. 

Display filters will affect only the number of objects to be displayed on 
the screen. The objects not meeting the filter parameters will not be displayed on the 
screen, but will continue to be processed by the Integration system ready for instant 
display. The Menu Bar option Filters, as discussed in section B.6, allows the user to 
override the defined display filters, in which case all objects in the Tactical Database that 
meet the screen range scale limit will be passed to the Screen Display. 


The two filter types require two separate operations to implement. 


@ Set Tactical Database Filters 
¢ Set Screen Display Filters 


The two filter operations became the entries into another radio button 
select window as shown in Figure 3-28. 


Select Filter Type 
O Set Tactical Database Filters 


© Set Screen Display Filters 


Figure 3-28. Select Filter Type 
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(1) Set Tactical Database Filters. The Tactical Database contains 
objects of varying types and attributes. Each object type can be filtered separately based 
On its attributes. For Track and Point type objects it is also possible to filter separately on 
categories of the object. The object types, categories and allowed filtering attributes are 
shown in Table 3-1. 

To allow the user to make filtering choices within one composite 
screen, a partitioned checkbox window, shown in Figure 3-29 was constructed. The 
system default configuration has been selected for illustration purposes. 

Selection of an item indicates that it should be included in the 
database processing. In the example shown, the colored items indicate a selection. The 
example will instruct the database to include all object types, of all categories and 
Classifications. The blank Range, CPA, Class and Height boxes indicate that no filters for 
those items should be applied. 

The And/Or selector buttons allow the user to define atomic 
filter entities, which will permit multiple filter attributes on a single object type. For 
example, if the user wishes to see surface friendlies within 30 nautical miles and 
surface hostiles within 50 nautical miles, the And selector would be employed to 
concatenate the filters within the single surface object type. 

The Or selector allows filter concatenation within object types. If 
the user wishes to see all surface friendlies or all air hostiles or navigation hazards within 


50 nautical miles, the Or selector would be used to define the multiple filter object types. 
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(2) Set Screen Display Filters. The Screen Display Filters are 
virtually identical to those of the Tactical Database. The one difference is that the Range 
parameter is set by the Range Scaling function and cannot be adjusted in this operation. 
A screen identical to Figure 3-29 will be presented to the user with all Range selection 
areas "grayed out”, allowing no Range parameter inputs. 

b. Set Alert Parameters 

Alerts notify the user that there has been some condition or event 

detected that either places the ship in danger or adversely affects the operation of the 


system. There are five cases where an Alert is appropriate. 
Close CPA Detected 

Low Flyer Detected 

External System Status Changes 

Shallow Water Detected 

Unusual Sea Floor Ramping Detected 
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These five cases formed the entries for the checkbox window shown in 
Figure 3-30. The system defaults have been entered for illustration purposes. 

(1) Alert on all close CPA situations. |§ The system will alert the user 
if any Tracks are detected with CPA ranges less than the CPA alert value. 

(2) Alert on all Low Flyer detections. The system will issue an alert 
for all cases of Air Tracks with a Height attribute less than the alert height value. 

(3) Alert on all System status changes. The system will alert the 


user Of all status changes in external system inputs. 
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Range 
Height 


Classification 





Surface 


Sub-Surface Range 


Classification 


Waypoint CPA 
Reference Range 
Nav Hazard 


Man in Water 





Table 3-1. System Filter Table 
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Tactical Database Filter Selection 


Selectlon will include Item into Database Selection will apply Filter to Item 
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Cancel Filter Selection 





Figure 3-29. Database Filter Selection 


Set Alert Parameters 


ME Alert on all close CPA situations Alert CPA Yards 
WH Alert on all Low Flyer detections —atrtiegu{_5000_] Feet 
WH Alert on all System status changes 


MB Alert on Shallow Water detections urge [_00_]Feet 
MH Alert on unusual Seafloor ramping Atert Stope|_10.0_|Ft/Sec 


Figure 3-30. Set Alert Parameters 





(4) = Alert on all Shallow Water detections. The system will issue an 
alert when the fathometer inputs drop below the alert depth threshold. 

(5) Alert on unusual Seafloor ramping. The fathometer inputs are 
monitored continuously and compared over time. Any drop in fathometer readings in 


excess of the alert slope threshold will result in an alert. 
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c. Set External System Inputs 

The Tactical Information System cannot provide accurate displays 
without the information inputs external equipment provide. This operation allows the 
user to specify which units will act as information feeds into the system. It will also 
allow the user to designate equipment as inoperative, which will act as a reminder to 
overall ships equipment status. 

All selections made in this area will be reflected in the System Status 
window located in the lower right corner of the display. Figure 3-31 is a checkbox 


window formed to implement this operation. 










Select 


1) Radar #1 OC 
(J Link System O 
CJ Aft Gyro O 
(1 Windbirds O 
O O 
O O 


Inop 


Pit Sword 
Fathometer 


Caneel 


Figure 3-31. Equipment Select Window 
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d. Set Custom System Configurations 
It is recognized that different individuals have varying preferences. This 
operation will allow a user to save a set of predefined system defaults and recall them at 
a later date. Figure 3-32 shows the radio button window that will appear when this option 
is selected. 


Custom Configurations 


© Save the current configuration 


©) Recall a saved configuration 


Cancel 


Figure 3-32. Custom Configurations 





(1) Save the current configuration. This option will read in all 
configurable system options, with the exception of the external equipment selections, and 
save the information to a disk file. The user will be prompted for a configuration 
nameprior to the save. The option to cancel the operation will also be provided. 

(2) Recall a saved configuration. This option will present the user 
with a scrolling text window containing the names of all the configurations currently in 
the system. Selecting a configuration will cause the system to reset all configurable 


items to the saved parameters. 
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9. Navigation Functions 
This category encompasses all the requirements concerning path planning and 


Ownship navigation functions. There are four operations required for this option. 
Plot a Great Circle Path 

Override Navigation Equipment Inputs 

Plot an Intercept Course 


¢ ¢ ¢ 


Plot an Avoidance Course 


Figure 3-33 is a radio button window containing the four operations defined 


for this category. 


Navigation Functions 


© Pilot a Great Circle Path 


© Override Navigation Equipment Inputs 


© Plot an Intercept Course 


O Plot an Avoidance Course 


[Cancel] 





Figure 3-33. Navigation Functions 
a. Plot A Great Circle Path. 

It 1s often the case that shipboard navigation officers must plot courses 
from one place to another by this method. This capability is relatively easy to implement 
based on the components and types that are already part of the prototype system. This 
option was included for future development as no Path plotting capability is planned for 


the prototype. 
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b. Override Navigation Equipment Inputs. 

Not all equipment is as reliable as one desires. This operation was 
inserted to allow the user to place any and all Navigation systems in "Manual" mode, and 
make all Navigation inputs from the keyboard. 

All manual inputs made from this option will pass into the Tactical 
Database and replace the automatic Navigation equipment inputs. A message, 
"Navigation: Manual", will be displayed in the System Status window alerting the user 
that at least one navigation input is in manual mode. Figure 3-34 is the checkbox option 


window designed for this operation. 


Set Manual Navigation Inputs 


Latitude Longitude z Zulu Time 
] Position oF 
[J Course Degrees True 


CL) Speed Knots 
CJ Depth Feet 


Figure 3-34. Set Manual Inputs 





c. Plot An Intercept Course. 
This option will perform the moving geometry calculations required to 
determine a course and speed from one object to intercept another. The user will be 


prompted, (with the Warning Select window shown in Figure 3-20), to select two screen 
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objects. The calculations will then be performed and the results displayed in the 
Recommendations display window. 
d. Plot An Avoidance Course. 

This option is the conceptual opposite of intercepting an object. The 
system will compute the necessary course and speed to avoid an object by a specified 
distance. The user will be prompted to select two screen objects and then asked for an 
avoidance distance. The system will display the results of the ensuing calculation in the 


Recommendations display window. 


C. INFORMATION DISPLAY ANALYSIS 


In this phase of the design all categories, requirements, operations and other 
reference documents were examined for items of information that were either required or 
available for display. A large list of information items was compiled and then split into 
two sections. 

The first section of the list contained information items that, based on the system 
requirements, were required to be displayed. Items such as Track and Point objects, 
menus, recommendations and alerts made up the majority of this list. 

The second section contained items that were not specifically called out in the 
requirements, but were available in the system. These "nice to have" items consisted of 


configuration and system status selections, time and external equipment inputs. 
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The required items list was studied with the objective of minimizing the number of 
display windows needed to present all information elements. This analysis resulted in the 


definition of six primary information windows and two menu windows. 


¢ Graphical Track Display Window 
¢ Track Information Window 
System Alerts Window 

System Recommendations Window 
System Intelligence Window 
System Status Window 

System Menu Bar 

Title Window 


oo ¢ © © @ 


The decision regarding which elements of "nice to have" information to include in 
the design was postponed pending the final design of the required windows. 
1. The Graphical Track Display Window 
This, the largest of the information display windows, contains graphical 
representations of all track objects defined in the system. Tracks are displayed in the 
circular area as standard NTDS symbols, identified by the text appearing below the 
symbols. The circular display closely approximates standard radar repeater form and was 
chosen to ease the users transition from standard shipboard systems to the Information 
Display. 
The circular display also provides usable space to provide many elements of 
the "nice to have" information in a clean and easy to read format. Computed information, 
such as True Wind speed and direction and Set direction and Drift speed were included 


as were the direct system inputs of Depth and Time. Additional system status information 
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was included to provide the user with the current default values of system filters, alerts 
and intel. 

The capability to scale the range display to user defined dimensions was 
included as a slider bar. Each selection of the range scaling function will double/halve 
the current scale selected to a minimum of 2000 yards and a maximum of 512 nautical 
miles. Figure 3-35 shows a representation of the final design including a sample of 
typical system outputs. 

2. The Track Information Window 

This window required a text display of all predefined object attributes as well 
as computed attributes such as CPA. As the display was to be text based, a scrolling text 
window was selected as the interface. Figure 3-36 shows the final design form and a 


selection of typical information items found in the window. 
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| Scale: 16 Miles Display Filters : Default 
Intel : Name 


Alerts : On 


Depth : 2721 Feet © 
True Wind : 150 /15 
Set / Drift : 2507/7 1.5 | | Time : 1517 





Figure 3-35. The Graphical Track Display Window 






Track Information 


Bearing 185 T Contact C Course 270 T | 
Range 15728 Yds #1441 Speed: 17 Kts 
CPA: 000T/1000 Yds @ 1530 
Position: 57.23.45 N / 123.33.27 W 








Last Update: 1505 Link Track 
ID: Japanese Tanker Class: Neutral |W 


Figure 3-36. Track Information 
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This window design serves track objects of all types. The title Track 
Information was selected after a considerable amount of discussion with the proposed 
end-users of this system. 

The proposed end-user, an American Naval Officer, was found to be more 
comfortable with the term Track vs. the term Object. As the field of Object Oriented 
Design is still in its infancy, and not all users could be expected to understand what an 
object meant, the title Track Information was adopted. 

Another benefit of the discussions with the end users was the discovery that 
most informational reports, generally passed verbally, are formatted fairly specifically. 
The verbal reports generally begin with the name of the object, followed by the group 
bearing and range, and concluding with the group course, speed and CPA. 

The placement of information within this window attempts to duplicate the 
verbal report format, grouping the bearing and range attributes into one "block" and the 
CPA is prominently featured in the middle of the window. The other attributes, judged 
less critical by the end-users, were placed at the bottom of the window. course and speed 
attributes into another. The name is centered in the top of the display. 

3. The Systems Alerts Window 

This window displays warnings to the user based on the alert parameters 
defined in the Set Alert Parameters section of the System Defaults. The display is 
scrollable to allow the user to review all alerts generated by the system during the current 


mission. Figure 3-37 shows the final window design. 
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Contact 'C': CPA 000 / 1000 Yds @ 1530 





Figure 3-37. System Alerts Window 


4. The System Recommendations Window 
This window provides course and speed recommendations to the user based on 
the alert threshold defined in the System Defaults section. The computed course and 
speed necessary to avoid any track by the alert threshold will be displayed in this 
window, paired with each CPA alert in the alerts window. Figure 3-38 shows the window 


with a typical recommendation. 


Steer 125 T / 15 Kts to avoid Contact 'C' by 3000 Yds 





Figure 3-38. The System Recommendations Window 
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5. The System Intelligence Window 


This window, provided for future development, will present all pertinent Intel 


information available for the selected track. Figure 3-39 shows a projected representation 


of the final design. 


Intelligence 


Japanese Tanker 
15 Kts max speed 


No offensive/defensive capability 





Figure 3-39. The System Intelligence Window 


The System Status Window 


This window presents the user with a comprehensive view of the current status 
of all system inputs. Reverse video is employed to distinguish degraded or inoperative 


System inputs to the user. Figure 3-40 depicts the window containing a set of system 


inputs typical to the system. 
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GPS System: Up 
Radar 1: Up 
Radar 2: 
Link 11: Ow Tr 


Link14: Bown) 





Figure 3-40. The System Status Window 


7. The System Menu Bar 


This Menu bar presents the user with the nine pulldown menu operations to 
exercise the different capabilities of the Information System. Figure 3-41 shows the final 


design of the Menu bar, reprinted from Figure 3-1 shown earlier. 





[tescxs] [riots ] Laterts] [ruters] [Dereueg [tater] [Nav] [iiss] [coating] 


Figure 3-41. The System Menu Bar 


8. The Title Window 


The Titke window serves a dual purpose. As the final system design 
encompasses the entire screen display, some area of the screen was needed to present the 
sub-menu items. This window was found to be the ideal position for all sub-menus and 


intermediate information presentations. A select button was added into this window to 
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allow the user to exit cleanly from the system. Figure 3-42 shows the window in its final 


design form, reprinted from Figure 3.2 presented earlier. 


Tactical Information System 


Prototype Version 1.1 


Exit Information System 





Figure 3-42. The Title Window 


D. WINDOW SIZING AND POSITIONAL ANALYSIS 


1. The Prototype Display Model 
This, the last design stage, required the sizing and positioning of the different 
windows and menu items in a manner easily readable at a glance by the user. The final 


design is shown in Figure 3-43. 
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Track Information 
Tactical Information System Contact ‘C 
Prototype Version 1.2 


“ 
CPA: 000 / 1008 Yds @ 1530 


[Exit Information System} So ieee 
Exit Information System om 
Classification: Neutral 


Scale: 16 Miles Display Filters: Default 
Intel: Name| 
Alerts: On 


Reconmnandaéans 


Steer 125 T / 15 Kts to avold 
Cantact ‘C by 3008 Yds 


Japenese Tankar 
15 Kis Max Speed 
No offensive/defensive capability 


Time: 1517 
Set / Drift: 250 / 1.5 — 





Figure 3-43. The Prototype Display 
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IV. INTERFACE IMPLEMENTATION 


A. ADA TOOLS AND GRAPHICS SUPPORT REVIEW 


One of the research goals defined for this thesis was to ascertain if a viable graphic 
user interface could be completed in Ada. The implementation phase of this project was 
started with a review of the tools available to port Ada into X11R4. The number of those 
available tools is very small; only two products currently exist. 

1. TAE+ 

Transportable Applications Environment Plus (TAE+) was developed by the 
National Aeronautics and Space Administration (NASA) on behalf of the Goddard Space 
Flight Center. TAE+ is a complete programming and design package which supports 
several widgets (display types, such as slider bars, text boxes, buttons, check boxes, etc.) 
and is capable of generating Ada code directly from a defined screen application. 

A complete description of the TAE+ package is available in [TAE90]. 

2. STARS 

The Software Technology for Adaptable, Reliable Systems (STARS) program 
is an Ongoing project sponsored by the U.S. Air Force to provide Ada programming 
support in the form of Ada libraries and toolkits. The Ada/Xlib libraries provided by 


STARS give an Ada programmer direct access to all low level X Protocol primitives. An 
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additional STARS tool, providing an Ada/Xt widget toolkit and an Ada/Motif widget 


toolkit are under development and will be available soon. 


B. PROGRAMMING THE INTERFACE 


The interface was completed as a set of six Ada packages, dividing the necessary 


functionality into logical groups. 

¢ Open Interface Displays Package 
Monitor Displays Package 
Process Interface Displays Package 
Tacplot Set Package 
Draw Display Graphics Package 
TAE Menu/Main Program 
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1. Open Interface Displays Package 
This package contains all the declarations and parameters required to open 
each of the six information display windows defined in the design. A separate procedure 
was included for each window type. Complete program listings are available in Appendix 
A. 
2. Monitor Displays Package 
This package contains one monitor task and one test procedure. Complete 


program listings are available in Appendix B. 
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a. Monitor Update Intervals Task 
This task simply keeps track of the amount of time elapsed between 
screen refreshes. The timing requirements in [SS90] require a maximum of four second 
delays between screen updates so the task will call the process to refresh the screen every 
four seconds. 
b. Test System Status Procedure 
This infrequently called procedure is initiated by pressing the mouse 
button in the System Status display window. This procedure polls the Bolick/Irwin Status 
package to determine current system status and displays that information within the 
System Status window. 
3. Process Interface Displays Package 
This package contains procedures and functions which process information 
related to the screen displays. Complete program listings are available in Appendix C. 
a. Process Tacplot Objects Procedure 
This procedure takes each object defined in the Tactical Plot Set Package 
and computes all the required elements of information to be displayed on the screen. 
Each object is processed individually and the screen drawing and writing processes are 
called to project the information onto the display screen. 
b. Process Hook Position 
Each time the mouse button is pressed within the Tactical Plot window, 


this procedure is called to determine the position of the cursor at the time the button was 
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pressed. Various screen positions are predefined as either ownship or screen scaling 
functions and this procedure checks to see if the mouse button was pressed in one of 
those locations. 

If the mouse was not pressed in a predefined location, a state variable is 
set and the location of each incoming object is compared to the "hook" position to 
determine if an object was in the vicinity of the hook location. If the values of the hook 
position and the location of any track object correspond, the hook will be displayed 
surrounding the object. 

4. Draw Display Graphics Package 
This package contains all the screen drawing and writing procedures for both 
object and information displays. The symbology used to display the track objects was 
taken from [GOTS91]. Complete program listings are provided in Appendix D. 
5. Tacplot Set Package 
This package is the primary link between the Bolick/Irwin Integration System 
and the display process. A generic set package was used to implement a track data 
structure and procedures were provided to empty the set, fill the set and retrieve the data. 
Each data object in the set is sent to the Process Displays package individually for 
processing prior to display on the screen. Full program listings are available in Appendix 


Ee 
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6. Menu Package 
This package contains the code generated by TAE+, heavily modified to 
implement the menuing system described in Chapter III. The system starts by opening all 
windows defined by both TAE+ and STARS, loading an Ownship track object and 3 test 
tracks, and entering an endless event monitoring loop. Complete program listings are 


available in Appendix F. 


C. INTERFACE TESTING 


1. System Integration 
Upon completion of each program module package, the module was linked 
into the Bolick/Irwin Tactical Database project and tested both independently and with 
the other Interface packages. Informal timing tests were conducted at each Stage to detect 
any unacceptable system response times. 
2. System Timing Results 
Timing tests were completed for the packages containing the STARS code 
meeting with great success. The package containing the TAE+ code initially provided 
unacceptable system response times when integrated with the system as a whole, and was 
successfully modified to give acceptable response results. 
a. STARS Response Times 
With the STARS code fully integrated into the system, the response times 


for an object base of four tracks given five rapid button presses averaged less than 0.1 
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seconds per display update. An object base of 20 tracks was provided with the results 
remaining essentially identical. 
b. TAE+ Response Times 

With the TAE+ code integrated unmodified into the system, the response 
times for the same test of four track objects given five rapid button clicks averaged three 
seconds per display update. An object base of 20 track was provided with the timing 
results degenerating to four seconds per display update. 

TAE+ code is generated to run as a main procedure. The code contains a 
display opening procedure, an event monitoring loop and a support package containing 
the actions to be taken when an event is detected. 

The event monitoring loop is constructed as a single IF-THEN clause 
which monitors every object on every defined display once per loop cycle. This 
inefficient method of event monitoring must be modified before acceptable timing results 
can be obtained. Placing the event monitoring loop into a task structure is not possible as 
TAE+ uses the Ada pragma Interface to access the X11 functions. 

The modifications made to the TAE+ code included changing the single 
IF-THEN clause to a nested structure, which monitors only the defined windows, adding 
a top level IF-THEN clause, (using the TAE+ directive "WPT_PENDING"), to isolate 
the TAE+ event loop unless an event has taken place in a TAE+ window and placing all 


STARS event handlers into the same loop as the TAE+ event handlers. 
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These changes resulted in timing results similar to those recorded for the 
STARS package alone. The speed at which TAE+ opens and closes windows is noticibly 
slower than STARS but is transparent to the display updating process due to the changes 


made to the event handling loop. 
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V. CONCLUSIONS 


A. SUMMARY 


This thesis presented the design and implementation of a graphical user interface for 
a near-real-time system. Two Ada graphical interface tools were tested and evaluated for 
acceptable system response times. 
1. STARS 
The STARS Xlib bindings are a wonderful tool for building windows, line art, 
pixmaps and static text displays. There are, however, no provisions for any standard 
widget types such as scroll bars, text input boxes, view ports or dialog boxes. The 
implementation of an Ada application using STARS is quite straightforward, although 
knowledge of X Protocol primitives is very helpful to a novice programmer. 
The Xlib bindings are extremely fast and highly suitable for a real time 
application. 
2. TAE+ 
The TAE+ application generator is a very useful tool for any non-time critical 
application. All standard widget types are supported and the user interface into the 
program is very simple. 
Constraints can be placed on all data input streams and are checked by TAE+ 


at execution time, relieving the programmer of the task of building constraint check 
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routines. The execution time of the program can be improved by reducing the number of 
defined windows (called panels in TAE+) and by placing the window event handlers into 
a nested IF-THEN clause with the TAE function WPT_PENDING used as an isolation 
device. However, even with the mentioned modifications to the TAE+ code, the speed at 
which TAE+ opens and closes display windows makes the execution time of the 
generated program application is comparatively slow, and unacceptable for a real-time 
graphical information display application. However, for rapidly prototyping menuing 
functions which link into a fast display process such as the STARS XLib library, it is an 
invaluable tool. 

The Ada to X11 bindings for TAE+ are different from those used by STARS, 
and when used in conjunction with a STARS application, results in linking two separate 
sets of Ada to X11 bindings into the final executable. This dual linking effectively 
increased the size of the final Interface program by a factor of approximately 2.5 (1.2 
megabytes to 2.9 megabytes) which may affect the transportablity of the final application 
dur to memory constraints. 

TAE+ currently has an upgraded package (Version 4.2) under test and many of 


the problems discussed in this chapter may have been addressed in the new edition. 
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B. RECOMMENDATIONS 


Any graphical user interface requiring text or numeric data input requires a number 
of different widget types to present the user with an easily understood interface. A widget 
toolkit, called Ada/Xt, for Ada applications has recently been introduced by STARS as 
an "A" test release and is available via anonymous FIP _ from_ host 
"stars.rosslyn.unisys.com" in the "pub" directory. This widget toolkit runs on top of the 
Ada/Xlib bindings and is configured for the VADS or Telesoft Ada compilers. Due to the 
display speed constraints encountered in the TAE+ package, I recommend that any 
further research into Ada user interfaces obtain and test this new STARS package for 
interface development. Full details of the Ada/Xt widget toolkit are available in 


[ADAXT]. 


C. SUMMARY OF CONTRIBUTION 


This project was completed entirely in the Ada programming language, and 
employed a number of tools representing the current "state of the art" in Ada graphics 
processing. Preliminary research into Ada graphics applications produced no data on any 
other programming attempts of this scale. 

The design approach and the implementation methods used for the project are 


entirely transparent and can be applied to any other user interface project using Ada.The 
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modifications made to the TAE+ generated code, and the methods used to link that code 


into a larger application is entirely portable for any application using the TAE+ package. 
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APPENDIX A 


OPEN INTERFACE DISPLAYS 


=< Author: Michael G. Stockwell 
-=- Date : 21 September 1991 
aoe Description: Handles the declarations and opening procedures for 


all windows defined in the LCCDS program 
with System; with Key Syms; with Text_Io; with X_Lib; 


package Open Interface Displays is 
use X_Lib; 
use Events; 

~- General Declarations 


Display Not_Open : Exception; 
~~ Declarations for the Tactical Plot Window 
Tacplot Buffer >: X_Lib.String_ Pointer := new String’ (“ “); 


Tacplot_Gc_ Value Mask : X_Lib.Graphic_Output.Gc_ Mask_Type 


:= Graphic_Output.Gc_Font; 


Tacplot Gc _ Value _ Rec : X_Lib.Graphic_Output.Gc_Value_Record; 
Tacplot_ Main Attrs : X_Lib.Set_Window_Attributes_ Record; 
Tacplot_Main_Screen >: X_Lib.Screen_Number; 

Tacplot_Window : X_Lib.Window; 

Tacplot_Root_Wind : X_Lib.Window; 

Tacplot_Border Width : X_Lib.Coordinate = 2; 

Tacplot Drawing Space >: X_Lib.Drawable; 


62 


Tacplot Display 

Tacplot Display Context 
Tacplot_Window_X 
Tacplot_Window_Y 
Tacplot Window Width 
Tacplot Window _Height 
Tacplot_ Status 


Tacplot_Wa Values 


Mau: 
X Lib. 
X Lib. 
X Lib. 
ante 
X Lib. 


X Lib. 


Display; 

Graphic Output.Graphic_ Context; 
Coordinate := 0; 

Coordinate := 0; 

Pixel := 700; 

Pixel := 700; 


Events.Compose_ Status Record; 


X_ Lib.Wa_Mask_Type:= Wa_Background_Pixel or 


Wa_Border Pixel or 

Wa_ Cursor or 

Wa Override Redirect or 
Wa_Event Mask or 

Wa Bit Gravity or 


Wa Win Gravity; 


Declarations for the Track Information Window 


Trackminto Buffer 


Track_Info_ Display 


X Lib.String Pointer *= new String’ (“ “); 


X_ Lib.Display; 


Track Info Drawing Space: X_Lib.Drawable; 


Track_Info_Gc_ Value Mask: X_Lib.Graphic_Output.Gc_Mask_Type 


Track_Info_Gc_Value_ Rec 
Track Info Border Width 
Track Info Display Context 
Track_Info Window_X 
Track_Info Window _Y 

Track Info Window Width 
Track_Info_ Window_Height 
track, Inte Mainmacers 


Track Info Main_Screen 


:= Graphic Output.Gc Font; 


X_Lib.Graphic_Output.Gc_Value_ Record; 


X_Lib.Coordinate m= 2; 


X_ Lib.Graphic_Output.Graphic_ Context; 


X_Lib.Coordinate 0; 
X_Lib.Coordinate c= 0; 
X Lib.Pixel >= 600; 
X_Lib.Pixel >= 102; 


X_Lib.Set Window Attributes Record; 


X_Lib.Screen_Number; 
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Track Info Window 
Track Info Root Wind 
Track Info Status 


Track_Info Wa_ Values 


ALeres Butter 


Alerts Gc_Value_ Mask 


Alerts GemVvalue Kec 
Alerts Main Attrs 
Alerts Main Screen 
Alerts_Window 

Alerts Root_Wind 
Alerts Border Width 
Alerts Drawing Space 
Alerts Display 
Alerts Display Context 
Alerts Window_X 
Alerts Window _Y 
Alerts Window Width 
Alerts Window_Height 


Alerts Status 


X_ Lib.Window; 
X_Lib.Window; 
X_Lib.Events.Compose_Status_ Record; 
X_Lib.Wa Mask_Type:= 
Wa_ Background Pixel or 
Wa Border Pixel or 
Wa_Cursor or 
Wa _ Override Redirect or 
Wa_Event_Mask or 
Wa Bit_Gravity or 


Wa Win_Gravity; 


-- Declarations for the Alerts Info Window 


X_ Lib.String Pointer := new String’ (“ “); 
X_Lib.Graphic_Output.Gc_Mask_Type 

>= Graphic _Output.Ge_ Font; 
X_Lib.Graphic_Output.Gc_Value_Record; 
X_Lib.Set_Window_ Attributes Record; 
X_Lib.Screen_Number; 
X_Lib.Window; 
X_ Lib.Window; 
X_Lib.Coordinate 
X_Lib.Drawable; 
X_Lib.Display; 


X_Lib.Graphic Output.Graphic_ Context; 


X_Lib.Coordinate sce 0; 
X_Lib.Coordinate >= 0; 
X_Lib.Pixel >= 433; 
X_Lib.Pixel >= 90; 


X_Lib.Events.Compose Status Record; 
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Alerts Wa Values 


; X_Lib.Wa_Mask_Type:= 


Wa Background Pixel or 
Wa_ Border Pixel or 

Wa Cursor or 

Wa Override Redirect or 

Wa_ Event Mask or 

Wa_ Bit Gravity or 


Wa Win Gravity; 


~~ Declarations for the Recommendations Info Window 


Recommendations Buffer 


Recommendations _Gc_Value_ Mask 


Recommendations _Gc_Value_ Rec 
Recommendations_Main_ Attrs 
Recommendations Main Screen 
Recommendations Window 
Recommendations _ Root_Wind 
Recommendations Border Width 
Recommendations Drawing Space 
Recommendations Display 
Recommendations Display Context 
Recommendations _Window_X 
Recommendations Window_Y 
Recommendations Window Width 
Recommendations Window Height 
Recommendations Status 


Recommendations _Wa_Values 


: Strang Pointer "new String’ (~ “); 
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X_Lib.Graphic_Output.Gc_Mask_ Type 
Graphic Output.Ge Font; 
Graphic_Output.Gc_Value_ Record; 
Set_Window_ Attributes Record; 
X_Lib.Screen_Number; 
X_Lib.Window; 


X_Lib.Window; 


il 
NO 


X_Lib.Coordinate 
X_Lib.Drawable; 
X_Lib.Display; 


Graphic Output.Graphic Context; 


X_Lib.Coordinate 7 0 
X_Lib.Coordinate := 0; 
X Lib.Pixel >= 433; 
X_Lib.Pixel 0; 


Events.Compose Status_Record; 
X_Lib.Wa_Mask_Type:= 
Wa_ Background Pixel or 
Wa Border Pixel or 
Wa_ Cursor or 


Wa_ Override Redirect or 


Wa_Event_Mask or 
Wa_Bit_Gravity or 


Wa_ Win Gravity; 


-- Declarations for the Intel Info Window 


IntelsButter : 


Intel Gc Value Mask 


Intel Gc_Value_ Rec 


eae 


eps). 


Xo Late 


String_Pointer := new String’ (“ “); 
Graphic _Output.Gc_Mask_Type 
‘= Graphic Outpue. Ge ron, 


Graphic _Output.Gc_Value_ Record; 


Intel Main Attrs X_Lib.Set_Window_Attributes_Record; 
Intel Main Screen X_Lib.Screen_Number; 

Intel Window X_Lib.Window; 

Intel Root_Wind X_Lib.Window; 

Intel Border Width X_Lib.Coordinate := 2; 

Intel Drawing Space X_Lib.Drawable; 

Intel Display Xu bie piapliay.: 

Intel_Display Context : X_Lib.Graphic_Output.Graphic Context; 
Intel_Window_X i XeLibiCoordinate == 0; 

Intel Window _Y X_Lib.Coordinate -ma0; 

Intel _ Window Width XBL bePaxed w= 453; 

Intel_ Window Height  XaLebe Pixel s= 175; 

Intel estacus : X_Lib.Events.Compose Status_Record; 
Intel Wa Values X_Lib.Wa_Mask_Type:= Wa_Background_Pixel or 


Wa_ Border Pixel or 

Wa Cursor or 

Wa_ Override Redirect or 
Wa_Event_Mask or 
Wa_Bit_Gravity or 


Wa_Win_ Gravity; 
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-- Declarations for the System Status Info Window 


System_Status_Buffer sPSteind Pointer := neagpestring’ (~ “); 
System_Status_Gc_Value_ Mask : X_Lib.Graphic_Output.Gc_Mask_Type 


:= Graphic _Output.Gc Font; 


System _Status_Gc_ Value Rec : Graphic_Output.Gc_Value_Record; 
System Status Main Attrs > X_Lib.Set_Window_Attributes_ Record; 
System_Status Main_Screen : X_Lib.Screen_Number; 
System_Status_Window : X_Lib.Window; 
System_Status_Root_Wind : X_Lib.Window; 

System _Status_Border Width 1) X_bibmeoordinate ne; 
System_Status_Drawing_Space : X_Lib.Drawable; 

System_Status_ Display > X_Lib.Display; 
System_Status_ Display Context : Graphic _Output.Graphic_ Context; 
System_Status_ Window X : X_Lib.Coordinate = 50, 
System_Status_Window_Y : X_Lib.Coordinate 100; 

System _Status_ Window Width : X_Lib.Pixel >= 433; 
System Status Window Height 7 Xebab. Pixel <= 254; 
System_Status Status : X_Lib.Events.Compose_Status_Record; 
System_Status_Wa_Values : X_Lib.Wa_Mask_Type:= 


Wa_ Background_Pixel or 
Wa_Border Pixel or 
Wa_ Cursor or 
Wa_ Override Redirect or 
Wa_Event_Mask or 
Wa Bit Gravity or 
Wa Win_Gravity; 
procedure Open Tacplot_Display; 
procedure Open Track_Info Display; 


procedure Open Intel Display; 
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procedure Open System Status Display; 
procedure Open Alerts Display; 


procedure Open_Recommendations_ Display; 


end Open_Interface_Displays; 
package body Open_Interface_ Displays is 
procedure Open_Tacplot_Display is 


begin 


-- Opening the display, get the new Tacplot_ Display, get the default 
-- screen, set up the bounds of the panel, get the root window id 


-- and then create a window with our new defaults for the screen. 


Tacplot_ Display := X_Lib.X Open Display (“™“); 


if (Tacplot_Display = X_Lib.Null Display) then 
raise Display Not Open; 


end if; 


Tacplot_Main Screen := X_Lib.Default_ Screen (Tacplot_ Display) ; 


Tacplot_Root_Wind := Root_Window (Tacplot_ Display, 
Tacplot_Main_Screen); 
Tacplot_Main_ Attrs.Current Cursor >= Cursors.X_Create_Font_Cursor 
(Tacplot_Display, X_Lib.Cursors.Xc_ Cross); 
Tacplot_Main Attrs.Border Pixel s= X_ Lib.Black Pixel 


(Tacplot_Display, Tacplot_Main_ Screen); 
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Tacplot_Main_Attrs.Background_ Pixel 


Tacplot_Main Attrs.Bit Gravity Center Gravity; 
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i 


Tacplot Main Attrs.Window_Gravity Center Gravity; 


Tacplot Main Attrs.Event_Mask Events.Exposure Mask or 
Events.Button_ Press Mask or 


Events.Structure Change Mask; 


-- With many of the parameters that we have just populated 
-- we now create the window. The parameter Tacplot_Window will 


-~ be the new window id associated with this new window. 


Tacplot Window := 

X_Lib.X_Create_Window 
(Tacplot Display, 
Tacplot_ Root Wind, 
Tacplot Window X, 
Tacplot_Window_Y, 
Tacplot_Window_Width, 
Tacplot Window Height, 
Tacplot_Border Width, 
X_Lib.Default_ Depth (Tacplot Display, Tacplot_ Main Screen), 
X_Lib.Input_Output, 
X_Lib.Default_ Visual (Tacplot_Display, Tacplot_Main Screen), 
Tacplot_Wa_ Values, 


Tacplot_ Main Attrs); 


Events.X_Select_Input (Tacplot_Display, Tacplot Window, 
Tacplot_Main Attrs.Event_Mask); 
X Set _Icon_Name (Tacplot_Display, Tacplot Window, “Tacplot”); 
X_ Store Name (Tacplot_Display, Tacplot Window, “Tactical Plot”); 


X_Lib.Cursors.X_Define Cursor (Tacplot Display, Tacplot Window, 
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Tacplot MaanvAttrs.Currentwecursor):. 


Tacplot_Drawing Space := Drawable (Tacplot_Window) ; 


-- Here we set the text font to a 8X13 bold size and 
-- create a Graphic Context for the specified drawable 


had 


-- window. 


Tacplot_ Gc Value Rec.Font_Id := Fonts.X_Load_ Font 


(Tacplot Display, “8x13bold”) ; 


Tacplot_Display Context := Graphic _Output.X_Create_Ge 
(Tacplot Display, 
Tacplot_Drawing Space, 
Tacplot_Gc_Value_ Mask, 
Tacplot_Gc_Value_ Rec); 


-- Now we are going to Map the Tacplot_Window to the specified display 
X_Lib.X_Map Window (Tacplot_ Display, Tacplot_ Window) ; 
X_Lib.Events.X_Flush (Tacplot_Display) ; 

-- This sets the text foreground color to be white 


-- and the background color to be blue 


X_Lib.Graphic_Output.X_ Set Background 
(Tacplot_Display, Tacplot_Display Context, 8); 
X_Lib.Graphic_Output.X_Set_Foreground 


(Tacplot_Display, Tacplot Display Context, 0); 
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exception 


when Display Not Open => 
Text_Io.Put_Line (“Could not open Display”); 


end Open_Tacplot_Display; 


procedure Open Track_Info Display is 
begin 
-- Opening the display, get the new Track_Info Display, get the default 
-- screen, set up the bounds of the panel, get the root window id 
-- and then create a window with our new defaults for the screen. 


Track_Info_ Display := X_Lib.X_Open_Display (“"“); 


if (Track_Info_ Display = X_Lib.Null_ Display) then 
raise Display Not Open; 


end if; 


Track_Info Main Screen := X_Lib.Default_Screen (Track_Info_Display) ; 


Track_Info_Root_Wind := X_Lib.Root_ Window (Track_Info Display, 
Track_Info_Main_ Screen) ; 
Track_Info Main Attrs.Current_Cursor:= Cursors.X_Create Font_Cursor 
(Track_Info_ Display, 
AebsbGursors xc box Spiral); 


Track_Info_ Main Attrs.Border Pixel >= 12; 


Track_Info Main Attrs.Background_ Pixel a: 


Track Info Main Attrs.Bit_Gravity Center Gravity; 


Track_Info Main Attrs.Window_Gravity Center Gravity; 
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Track Info Main Attrs.Event_Mask >= Events.Structure_Change_Mask; 
Track_Info_ Window := 
X_Lib.X_Create_ Window 
(Track _Info Display, 
Track _Info_Root_Wind, 
Track Info Window X, 
Track_Info_Window_Y, 
Track Info Window Width, 
Track_Info_Window_Height, 
Track_Info Border Width, 
X_ Lib.Default_Depth (Track_Info_Display, 
Track Info Main Screen), 
X Lib.Input_Output, 
X Lib.Default_ Visual (Track_Info_Display, 
Track _Info Main Screen), 
Track_Info_ Wa Values, 
Track_Info Main Attrs); 
Events.X_Select_Input (Track_Info Display, Track_Info_Window, 
Track_Info Main_Attrs.Event_Mask); 
X_ Set_Icon_Name (Track_Info_ Display, Track_Info Window, 
“Track_Info”) ; 
X Store Name (Track_Info Display, Track_Info Window, 


“Track Information”); 


X_Lib.Cursors.X_ Define Cursor (Track_Info Display, Track_Info Window, 
Track_Info_Main_Attrs.Current_Cursor); 
Track_Info Drawing Space := Drawable (Track_Info Window) ; 
Track_Info_Gce Value Rec.Font_Id s=#Fonts-x_ Load Font 
(Track_Info Display, “8x13bold”) ; 
Track_Info Display Context := Graphic_Output.X Create Ge 


(Track_Info_Display, Track_Info Drawing_Space, 
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Track Info Gc Value Mask, Track _Info_Gc Value Rec); 
X_Lib.X Map Window (Track_Info_Display, Track_Info_ Window) ; 
X_Lib.Events.X_Flush (Track_Info_ Display) ; 
X_Lib.Graphic_Output.X_Set_Background (Track_Info Display, 
Track_Info Display Context, 7); 
X_Lib.Graphic_Output.X_Set_Foreground (Track_Info Display, 


Track_Info Display Context, 1); 


exception 


when Display Not _Open => 
Text Io.Put Line (“Could not open Display”); 
end Open Track_Info Display; 
= procedure Open Alerts Display is 
begin 
Alerts Display := X_Lib.X_Open_ Display (““); 
if (Alerts Display = X_Lib.Null_ Display) then 
raise Display Not_Open; 
end if; 
Alerts Main Screen := X_Lib.Default Screen (Alerts Display); 
Alerts Root Wind := Root _Window (Alerts Display, Alerts Main Screen); 
Alerts Main Attrs.Current_ Cursor >= Cursors.X_Create_Font_Cursor 
(Alerts Display, X_Lib.Cursors.Xc_ Man); 
Alerts_Main_Attrs.Border Pixel s= 12; 


Alerts Main Attrs.Background Pixel := 4; 
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Alerts Main Attrs.Bit_ Gravity Center Gravity; 


Alerts Main _Attrs.Window Gravity >= Center Gravity; 
Alerts Main Attrs.Event_Mask >= Events.Structure_Change_Mask; 
Alerts Window := 


X_Lib.X Create Window 
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(Alerts Display, 

Alerts Root Wind, 

Alerts Window _X, 

Alerts Window_Y, 

Alerts Window _Width, 

Alerts Window_Height, 

Alerts Border Width, 

X_Lib.Default_Depth (Alerts Display, Alerts_Main_ Screen), 
X_Lib.Input_Output, 

X_Lib.Default_Visual (Alerts_Display, Alerts_Main_Screen), 
Alerts Wa Values, 


Alerts Main Attrs); 


Events.X Select _Input (Alerts Display, Alerts Window, 
X_Set_Icon_Name (Alerts Display, Alerts_Window, “Alerts”); 
X_ Store Name (Alerts Display, Alerts Window, “Alerts”); 
X_Lib.Cursors.X Define Cursor (Alerts Display, Alerts_Window, 
Alerts Main _Attrs.Current_Cursor); 
Alerts Drawing Space := Drawable (Alerts_Window) ; 
Alerts GesValue Rec: Font id “= Fonts. x Lboad Fone 
(Alerts Display, “8x13bold”); 
Alerts Display Context := Graphic_Output.X Create Gc (Alerts Display, 
Alerts Drawing Space, Alerts _Gc_Value_ Mask, 
Alerts Gc _Value_Rec); 
X_Lib.X Map Window (Alerts Display, Alerts Window); 
X_Lib.Events.X_Flush (Alerts_Display); 
X_Lib.Graphic_Output.X_ Set Background (Alerts Display, 
Alerts Display Context, 12); 
X_Lib.Graphic_Output.X_Set_Foreground (Alerts Display, 
Alerts Display Context, 1); 


exception 
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when Display Not _Open => 
Text _Io.Put_Line (“Could not open Display”); 


end Open Alerts Display; 


procedure Open Recommendations_Display is 
begin 
Recommendations Display := X_Lib.X_Open_Display (““); 
if (Recommendations Display = X_Lib.Null_ Display) then 


raise Display Not_Open; 


end if; 
Recommendations Main Screen := X_Lib.Default_Screen 
(Recommendations Display); 
Recommendations Root Wind := X_Lib.Root_Window 


(Recommendations Display, 
Recommendations Main Screen) ; 
Recommendations Main Attrs.Current_Cursor := 
Cursors.X_Create_Font Cursor 
(Recommendations Display, X_Lib.Cursors.Xc_Gobbler) ; 
Recommendations Main Attrs.Border Pixel s= 12; 


6; 


Recommendations Main Attrs.Background Pixel : 


tt 


Recommendations Main Attrs.Bit_ Gravity Center Gravity; 


Recommendations Main Attrs.Window_Gravity Center Gravity; 
Recommendations Main _Attrs.Event_Mask := 
Events.Structure_Change_ Mask; 
Recommendations Window := 
X_Lib.X_Create Window 
(Recommendations Display, 


Recommendations _Root_Wind, 


Recommendations Window X, 
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Recommendations Window Y, 

Recommendations Window _Width, 

Recommendations Window _ Height, 

Recommendations Border Width, 

X_Lib.Default_Depth (Recommendations_Display, 
Recommendations _Main_ Screen), 

X Lib.Input_Output, 

X Lib.Default_Visual (Recommendations Display, 
Recommendations Main Screen), 

Recommendations Wa Values, 


Recommendations Main Attrs); 


Events.X_ Select_Input (Recommendations Display, 
Recommendations Window, 
Recommendations Main Attrs.Event_Mask) ; 
X_ Set _Icon_Name (Recommendations Display, Recommendations _ Window, 
“Recommendations” ); 
X_ Store Name (Recommendations Display, Recommendations Window, 
“Recommendations” ); 
X_Lib.Cursors.X Define Cursor (Recommendations Display, 

Recommendations Window, 

Recommendations _Main_Attrs.Current_ Cursor); 
Recommendations Drawing Space := Drawable (Recommendations Window) ; 
Recommendations_Gc_ Value Rec.Font_Id := 

Fonts.X_Load_ Font (Recommendations Display, “8x13bold”); 
Recommendations Display Context := 
Graphic _Output.X_ Create Gc (Recommendations_Display, 
Recommendations Drawing Space, 
Recommendations _Gc_Value_ Mask, 
Recommendations Gc Value Rec); 


X_Lib.X_Map Window (Recommendations Display, Recommendations Window) ; 
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X_ Lib.Events.X_Flush (Recommendations Display) ; 


X_Lib.Graphic_Output.X_Set_Background (Recommendations Display, 
Recommendations Display Context, 6); 
X_Lib.Graphic Output.X Set _Foreground (Recommendations_Display, 


Recommendations Display Context, 0); 


exception 


when Display Not_Open => 
Text_Io.Put_Line (“Could not open Display”); 


end Open _Recommendations_ Display; 


procedure Open Intel Display is 
begin 
Intel Display := X_Lib.X_Open Display (““); 
if (Intel Display = X_Lib.Null_ Display) then 


raise Display Not_Open; 


end if; 
Intel Main Screen := X_Lib.Default Screen (Intel Display) ; 
Intel Root _Wind := Root_Window (Intel Display, Intel Main Screen); 


Seely Main Att rs .Current Cursor := 
X Lib.Cursors.X_ Create Font Cursor 


(Intel Display, X_Lib.Cursors.Xc_Question_Arrow) ; 


Intel_Main_Attrs.Border Pixel >= 12; 

Entel Maan Attrs. Backgrounds rixe] B= 13; 

Intel Main Attrs.Bit Gravity s= Center Gravity; 

Intel Main Attrs.Window_ Gravity := Center_Gravity; 

Intel Main _Attrs.Event_Mask >= Events.Structure Change Mask; 
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Intel Window := 
X_Lib.X_Create_Window 
(Intel Display, 
Intel Root _Wind, 
Intel Window_X, 
Intel Window_Y, 
Intel Window Width, 
Intel Window_Height, 
Intel Border Width, 
X Lib.Default_Depth (Intel_Display, Intel _Main_Screen), 
X Lib.Input_Output, 
X Lib.Default Visual (Intel Display, Intel Main Screen), 
Intel Wa Values, 
Intel Main Attrs); 
Events.X_ Select Input (Intel Display, Intel Window, 
Intel Main_Attrs.Event_Mask) ; 
X_ Set _Icon_Name (Intel Display, Intel Window, “Intel”); 
X_Store Name (Intel Display, Intel Window, “Intelligence”); 
X_Lib.Cursors.X Define Cursor (Intel Display, Intel_Window, 
Intel Main_Attrs.Current_Cursor); 
Intel Drawing Space := Drawable (Intel Window); 
Intel Ge Value Rec.fFont_Id 2=, Fonts x toaderone 
(Intel Display, “8x13bold”); 
Intel Display Context := Graphic _Output.X_Create_Gc (Intel Display, 
Intel Drawing Space, Intel _Gc_Value Mask, 
Intel Gc _ Value Rec); 
X_Lib.X_Map Window (Intel Display, Intel_Window) ; 
X_Lib.Events.X Flush (Intel Display); 
Graphic Output.X Set_Background 


(Intel Display, Intel Display Context, 13); 
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X_Lib.Graphic_ Output.X_Set_Foreground 
(Intel Display, Intel Display Context, 1); 
exception 
when Display Not Open => 
Text_Io.Put_Line (“Could not open Display”); 


end Open_Intel_ Display; 


procedure Open System_Status_Display is 
begin 
System Status Display := X_Lib.X_Open_Display (““); 
if (System Status Display = X_Lib.Null_Display) then 
raise Display Not_Open; 
end if; 
System_Status Main Screen := Default Screen (System_Status_Display) ; 
System Status Root Wind := X_Lib.Root_Window (System_Status_ Display, 
System_Status_Main Attrs.Current_Cursor — 
MebLibaCiusous, x Create Font Cursor 


(System _Status Display, X_Lib.Cursors.Xc_Bogosity) ; 


System_Status_Main Attrs.Border Pixel >= 12; 
System_Status Main Attrs.Background Pixel := 14; 
System Status Main Attrs.Bit_Gravity ss Center Gravity; 
System Status Main Attrs.Window Gravity >= Center Gravity; 


System_Status_Main Attrs.Event_Mask : 
Events.Structure_ Change Mask or 
Events.Exposure Mask or 
Events.Button_ Press Mask; 
System Status Window := 
X_Lib.X_Create_Window 


(System Status Display, 
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System Status Root Wind, 
System Status Window X, 
System_Status_ Window _Y, 
System_Status_Window_Width, 
System _Status_Window_Height, 
System _Status_Border Width, 
Default_Depth 
(System_Status_ Display, System_Status_Main_ Screen), 
X_Lib.Input_Output, 
X_ Lib.Default_Visual 
(System Status Display, System_Status_Main Screen), 
System _Status_Wa_Values, System_Status_Main_Attrs); 
Events.X_Select_ Input (System_Status_ Display, System_Status_ Window, 
System_Status_Main Attrs.Event_Mask); 
X_Set_Icon_Name (System_Status Display, System_Status_Window, 
“System Status”); 
X_Store Name (System _Status_Display, System_Status_Window, 
“System Status”); 
X_Lib.Cursors.X Define Cursor (System_Status_ Display, 
System_Status_Window, 
System _Status_Main Attrs.Current_Cursor); 
System_Status_ Drawing Space := Drawable (System_Status_ Window) ; 
system _ Status Ge Value Rec. Fonteidg.= 
Fonts.X_Load Font (System_Status_Display, “8x13bold”) ; 
System Status Display Context := Graphic_Output.X_Create_Ge 
System_Status_Display, 
System_Status_Drawing_ Space, 
System_Status_Gc_Value Mask, 
System_Status_Gc_Value_ Rec); 
X_Lib.X_Map Window (System_Status Display, System_Status Window); 


X_Lib.Events.X_ Flush (System_Status_ Display); 
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X Lib.Graphic_Output.X_Set_Background 
(System_Status_ Display, System_Status_Display Context, 14); 
X_Lib.Graphic_Output.X_Set_Foreground 
(System_Status_ Display, System_Status_Display Context, 1); 
exception 
when Display Not Open => 
Text_Io.Put_Line (“Could not open Display”); 
end Open_System_Status Display; 


end Open_Interface_ Displays; 
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APPENDIX B 


MONITOR DISPLAYS 
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= Author: Michael G. Stockwell 
== Date : 12 September 1991 
== Description: Timers and Update Tasks for all displays. 


with X_ lib, Integration_System_ Pkg, Tacplot_Pkg, 
Open Interface Displays, Process Interface Displays, 
Draw_Display Graphics, System_Status_ Pkg; 

use X_lib, Integration_System_Pkg, Tacplot_Pkg, 
Open_Interface_ Displays, Process_Interface_ Displays, 


Draw Display Graphics, System_Status_ Pkg; 


package Monitor Displays is 


procedure Test_System Status; 


task Monitor Update Intervals; 


end Monitor Displays; 
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package body Monitor Displays is 
use Graphic Output; 
procedure Test_System Status is 
Eqpt_Status >: Status := DOWN; 
begin 
X_ Clear Window (System_Status Display, System_Status Window) ; 
X Draw_Image_ String 
(System Status Display, System_Status_ Drawing Space, 
System Status Display Context, 
5, 15, 
“GPS System: “); 
INTEGRATION SYSTEM.GET SENSOR _STATUS ( GPS, Eqpt Status ); 
if Eqpt Status = DOWN then 
Write Gps Status_Down; 
else 
Write Gps Status_Up; 
end if; 
X_Draw_Image String 
(System Status Display, System_Status Drawing Space, 
System Status Display Context, 
5, 45, 
~Lank ii ek) 
INTEGRATION _ SYSTEM.GET_SENSOR_STATUS ( LINK, Eqpt Status ); 
if Eqpt_Status = DOWN then 
Write Link Status Down; 
else 
Write Link_Status_Up; 


end if; 
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X Draw_Image_ String 
(System Status Display, System_Status_ Drawing Space, 


System Status Display Context, 
eye ath. 
“Radar 1 as a) 
INTEGRATION SYSTEM.GET_SENSOR_STATUS ( Radar, Eqpt_ Status ); 
if Eqpt Status = DOWN then 
Write_Radar_ Status_Down; 
else 
Write Radar Status_Up; 
end if; 


X_Draw_Image_String 
(System Status Display, System_Status_Drawing_ Space, 


System _Status Display Context, 
2502 15; 
“Fathometer: “); 
INTEGRATION _SYSTEM.GET SENSOR_STATUS ( Fathometer, Eqpt_Status ); 
if Eqpt Status = DOWN then 
Write Fath_Status_Down; 
else 
Write Fath Status_Up; 
end if; 


X_Draw_Image_String 
(System_Status Display, System_Status_ Drawing Space, 


System _Status_ Display Context, 
250, 30, 
“Gyro ae) 
INTEGRATION SYSTEM.GET_SENSOR_STATUS ( Gyro, Eqpt_Status ); 
if Eqpt Status = DOWN then 
Write Gyro Status Down; 


else 


Write Gyro Status_Up; 
end if; 
X_Draw_Image_ String 
(System_Status Display, System_Status Drawing Space, 
System_Status_Display Context, 
250, 45, 
MPAtsword <=)" )% 
INTEGRATION SYSTEM.GET SENSOR_STATUS ( Pitsword, Eqpt_Status ); 
if Eqpt_Status = DOWN then 
Write Sword Status Down; 
else 
Write Sword Status_Up; 
end if; 


end Test_System_Status; 


task body Monitor _Update_Intervals is 


SECONDS : constant DURATION := 1.0; 


INTERVAL : constant DURATION 4 * SECONDS; 
begin 
delay (Interval); 
loop 
begin 
delay (Interval); 
INTEGRATION SYSTEM.FILL TACPLOT; 
DISPLAY TACPLOT; 
exception 
when others => PUT_LINE (“Exception in Timer Task”); 
end; 
end loop; 


end Monitor Update_Intervals; 
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begin 
null; 


end Monitor Displays; 


APPENDIX C 


PROCESS INTERFACE DISPLAYS 


== Author: Michael G. Stockwell 
-- Date : 21 September 1991 
-- Description: Handles all information processing prior to writing 


that information to the screen. 


with Track Pkg, Cpa_Pkg, Absolute _Time_Pkg, Global_Observation_Pkg, 
X Lib, VStrings, Calendar, System Status _Pkg, Draw_Display Graphics, 
Vector 2 Pkg, Text_I0O, Angle Pkg, Speed Pkg, Velocity Pkg, 

Global_ Position Pkg, Relative _Position_Pkg, Relative _Time_ Pkg, 


Distance_Pkg; 


use Track_Pkg, Cpa _Pkg, Absolute _Time_Pkg, Global _Observation_Pkg, 
X_Lib, Velocity Pkg, Draw_Display Graphics, Vector_2 Pkg, Text_I0, 
Angle _ Pkg, Speed Pkg, Calendar, System Status Pkg, Global Position Pkg, 


Relative Position Pkg, Relative _Time_Pkg; 
package Process Interface Displays is 
package APKG renames TRACK_PKG.AMP_STR; 
use APKG; 


package VPKG renames TRACK_PKG.V_AND C_ STR; 


use VPKG; 
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package Test _Float_IO is new Float_IO (Float); 
package Test_Integer_IO is new Integer_IO (Integer); 


use Test_Float_IO, Test_Integer_I0O; 


procedure Process Tacplot_Objects (Current_Track: ime Track) ; 
procedure Process_Hook_ Position (Hook_Position_X: in X_1lib.Coordinate; 
Hook Position_Y: in X_lib.Coordinate) ; 
procedure Set_AV Alerts; 
rocedure Set _Visual_ Alerts; 
procedure Disable Alerts; 
procedure Set_CPA_Alert_Range (Alert_Range: in Float); 


procedure Set Filter Status (Stat $ an Streng); 


function Get_Ownship Track return Track; 

function Get_Hooked Track_Number return Natural; 

function Get _Hooked_Track Object return Track; 
package body Process Interface_Displays is 


subtype Coord is X_Lib.Coordinate; 


Ownship Track : Track; 

Ownship Name : String (1..12) := “USS Spanagel”; 
Hooked _ Track _Flag : Boolean := False; 
No_ Alert Flag : Boolean := False; 
Vis Alert Flag : Boolean := False; 
Filter Set _Flag ; Boolean := False; 
Nav_Man_Flag : Boolean := True; 
CPA_Alert_Range : Float := 3000.0; 
Hooked_ Track : Track; 
Hooked_Track_No : Natural; 

Hook_X : Coord = 3=— 0; 


Hook_Y Coord 0; 
Screen ccale Factor Float 32000.0; 
Targets Position Scale Factor Eiloat ol a3; 
Surface Velocity Scale Factor Coord 3; 
Air Velocity Scale Factor Coord 10; 
Scale Selector Up Center xX Coord 65; 
scale Selector Up Center Y Coord 40; 
Scale Selector Down_Center_X Geord := Zo; 
scale Selector Down_Center_Y Coord 40; 
procedure Process Tacplot Objects (Current Track: in Track) is 


Current_Track_Category 
Point Category 
CBDR_Alert_Range 
Target_Identity 
Target_Position X 
Target Position Y 
Target_Coordinate_X 
Target _Coordinate_ Y 
Target_Relative_Position 
Ownship Relative Position 
Velocity X 

Velociey. ¢ 

Time_Now 

VES 

AMP 

Track_No 

Tgt_Cpa 

Tgt_Cpa_Range 

Tgt_Cpa_ Bearing 


Tgt_Cpa_ Hours 
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Track_Category; 
Special Point Category; 
Float := 500.0; 
Identity Type; 
Coord, 

Coord; 

Float; 

Float; 
Relative_Position; 
Relative Position; 
Coord; 

Coord; 

Absolute Time; 
String (1-280); 
String (1.80); 
Natural; 

Cpa_ Type; 

Float; 

Float; 


Natural; 


Tot. CpasMins : Natural; 


Tgt_Lat_Deg : Natural; 

igt Late Min : Natural; 
igte Lavesec : Natural; 
Tgt_Lat Dir ; North_South; 
Tgt_Long_Deg : Natural; 
Tgt_Long_Min ; Natural; 
Tgt_Long_Sec : Natural; 
Tgt_Long_Dir : East_West; 


function Compute Surface Velocity _X ( Current Track: in Track) 
return Coord is 
begin 
return 
( (Coord (Integer (X_Coordinate (True Velocity (Current_Track))))) 
* Surface Velocity Scale_Factor); 
end Compute_Surface Velocity X; 
function Compute_Air Velocity _X ( Current_Track: in Track) 
return Coord is 
begin 
return 
((Coord (Integer (X_Coordinate (True Velocity (Current_Track))))) 
/ Air_Velocity_Scale_Factor); 
end Compute Air Velocity X; 
function Compute_Surface Velocity Y ( Current Track: in Track) 
return Coord is 
begin 
return 
( (Coord (Integer (Y_Coordinate (True_Velocity (Current_Track))))) 
* Surface Velocity Scale Factor); 


end Compute_Surface Velocity Y; 
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Funct LON, Compute Ar Velocity yY { Current track? an, Track) 
return Coord is 
begin 
return 
( (Coord (Integer (Y_Coordinate(True_ Velocity (Current Track) )))) 
/ Air_Velocity Scale Factor); 


end Compute_Air Velocity Y; 


begin 
Time NOW := ABSOLUTE TIME PKG.NOW; 
if Track_ID_Number(Current_Track) = 0 then 
Clear Interface Displays; 


Draw Display Attributes; 


if Nav_ Man Flag then 
Write _Nav_ Status (“Manual”); 
else 

Write Nav_Status (“Automatic”); 


end if; 


if Filter Set_Flag then 

Write Filters Status (“Set”); 
else 

Write Filters Status (“None”); 


end if; 


if No Alert Flag then 

Write Alerts Status (“None”); 
elsif Vis_Alert_Flag then 

Write Alerts Status (“Visual”); 


else 
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Write Alerts_Status (“Both”); 
end if; 
Write Range_Scale 
(Natural’ Image (Natural (Screen Scale Factor/2000.0))); 
Write Hours (Natural’ Image (Hours (Time_of Day (Time_NOW)))); 


Write Mins (Natural’ Image (Minutes (Time_of_ Day (Time_NOW)))); 


Ownship_Track := Current Track; 
Velocity_X := Compute_Surface_ Velocity _X (Current_Track) ; 
Velocity Y := Compute Surface Velocity Y (Current_Track); 


Draw Tacplot Speed Leader (Centerpoint _X, Centerpoint_Y, 


Velocity X, Velocity Y); 


if Hooked_Track_Flag and (Hooked _Track_No = 0) then 
Draw Tacplot_Hook (Centerpoint_X, Centerpoint_Y); 
Write _Tgt_Cse (Natural’ Image (Natural (Radians_to_ Degrees 
(True _Course (Ownship Track))))); 
Write Tgt_Spd (Natural’ Image (Natural (Speed_in_ Knots 
(True _Speed(Ownship Track)))))-; 
Write Tgt_Id (“FRIENDLY”); 
Write Tgt_ Update Hours (Natural’ Image (Hours 
(Time_of Day (Most_Recent_Observation 
(Ownship Track) .Observation Time) ))); 
Write Tgt_Update Mins (Natural’ Image (Minutes (Time_of_Day 
(Most_Recent_Observation 
(Ownship Track) .Observation_ Time) ))); 
Write Tgt_Class (“OWNSHIP”); 


Write Tgt_Name (“USS SPANAGEL”) ; 


Get_Latitude ((Current_Position(Ownship Track)), 
Tgt_Lat_Dir, Tgt_Lat_Deg, Tgt_Lat_ Min, Tgt_Lat_ Sec); 


Get_Longitude ((Current_Position(Ownship Track)), 


92 


gt. bong Dir, ToteLong Deg, Tgt Long Min, 
Tgt_Long_ Sec); 

Write Tgt_Lat Position (Natural’Image(Tgt_Lat_Deg), 
Natural’ Image (Tgt_Lat_ Min), 
Natural’ Image (Tgt_Lat_Sec), 
North South’ Image (Tgt_Lat_Dir)); 

Write Tgt_Long_ Position (Natural’ Image (Tgt_Long_Deg), 
Natural’ Image (Tgt_Long_ Min), 
Natural’ Image (Tgt_Long_ Sec), 
East_West’ Image (Tgt_Long Dir) ); 

end if; 

SecCuri; 

else 
Ownship Relative Position := Find Relative Position 
((Current_Position(Ownship Track)), 


(Current Position (Current_Track))); 


Target_Relative Position := Find_Relative_ Position 
((Current Position (Current Track)), 


(Current _Position(Ownship Track) )); 


if (RANGE OF ( Target_Relative Position) ) 


> Screen Scale Factor then 


return; 
end if; 
end if; 
Track_No >= Natural (Track_Id_ Number (Current_Track) ); 
Tgt_Cpa := Find _CPA (Current_Track, Ownship Track) ; 
Tgt_Cpa_ Range >= Length (Tgt_CPA.CPA_Bearing and_ Range); 
Tgt_Cpa_ Bearing := Radians to Degrees 
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(Direction (Tgt_CPA.CPA_Bearing and_ Range) ); 


Tgt_Cpa_Hours >= Hours (Time_of_Day(Tgt_CPA.Time_of _CPA)); 


Tgt_Cpa Mins := Minutes (Time_of Day (Tgt_CPA.Time_of _CPA)); 


if not No Alert Flag and (Tgt_Cpa_Range < CPA_Alert_Range) then 


Write CPA Alert ((Natural’Image(Track_No)), 

(Natural’ Image (Natural (Tgt_Cpa Bearing))), 
(Natural’ Image (Natural (Tgt_Cpa_Range))), 
(Natural’ Image (Tgt_Cpa_Hours)), 
(Natural’ Image (Tgt_Cpa_ Mins))); 

if not Vis Alert Flag then 

put (character’val(7)); 
end if; 


endmwit: 


Target Coordinate X := (X_Coordinate (Target Relative Position) ) 
/ Target Position Scale Factor; 
Target Coordinate Y := (Y¥_Coordinate(Target_Relative Position) ) 
/ Target_Position_Scale Factor; 
Target Position X := Centerpoint X + 
(Coord (Integer (Target_Coordinate_X))); 


Target Position YS: =sCenterpormntyie— 


(Coord (Integer (Target Coordinate _Y))); 


if (Hooked_Track_Flag = True) and 


(Hooked _Track_No = Natural (Track_Id_Number (Current _Track))) then 


Draw _Tacplot_Hook (Target Position X, Target Position Y); 
Write _Tgt_Cse (Natural’ Image (Natural (Radians to Degrees 


(True Course (Current _Track))))); 
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Write Tgt_ Spd (Natural’ Image (Natural (Speed_in_ Knots 
(True Speed(Current_Track))))); 

Write Tgt Brg 

(Natural’ Image (Natural (Radians_to Degrees(True Bearing 

(Ownship Track, Current_Track))))); 
Write Tgt Range (Natural’ Image (Natural 

(Range_of (Target Relative Position) ))); 
Write Tgt_No 
(Natural’ Image (Natural (Track_Id_Number (Current _Track)))); 

Write Tgt_Ctl Type (Control_Type’ Image (Control (Current_Track))); 

Write Tgt_ Update Hours (Natural’ Image (Hours 
(Time _of_Day (Most_Recent_Observation 
(Current_Track) .Observation_Time)))); 

Write Tgt_Update_Mins (Natural’ Image (Minutes 
(Time _of Day (Most _Recent_Observation 
(Current Track) .Observation Time) ))); 

Get_Latitude ((Current_ Position (Current_Track) ), 

Tgt_Lat_ Dir, Tgt_Lat_Deg, Tgt_Lat_ Min, Tgt_Lat_Sec); 

Get_Longitude ((Current_Position(Current_Track)), 

Tgt_Long_ Dir, Tgt_Long_ Deg, Tgt_Long_Min, 
Tgt_Long_Sec) ; 

Write Tgt_Lat_ Position (Natural’ Image (Tgt_Lat_ Deg), 
Natural’ Image (Tgt_Lat Min), 
Natural’ Image (Tgt_Lat_Sec), 

North South’ Image (Tgt_Lat_Dir)); 

Write Tgt_Long Position (Natural’ Image (Tgt_Long_Deg), 
Natural’ Image (Tgt_Long Min), 
Natural’ Image (Tgt_Long_ Sec), 
East_West’ Image (Tgt_Long Dir)); 

Write Rel Brg (Natural’ Image (Natural (Radians_ to Degrees 


(Relative _Bearing(Ownship Track, Current_Track))))); 
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Write Rel Spd (Natural’ Image (Natural (Speed_In_Knots (Spd 
(Target Relative Velocity (Ownship Track, Current_Track)))))); 
Write Tgt Angle (Natural’ Image (Natural (Radians_to_ Degrees 
(Relative Bearing (Current_Track,Ownship Track))))); 


Write Tgt_Amp Info (APKG.STR(Ampl_Info(Current_Track))); 


if ((Txrk_ Category (Current Track) )™=esurftace Platform) or 
((Trk_Category (Current_Track)) = Subsurface_Platform) then 
Write Tgt Class (VPKG.STR(Platform_Class(Current_Track))); 
Write Tgt Id 
(Identity Type’ Image (Track_Identity (Current Track) )); 


Write Tgt_ Name (VPKG.STR(Vessel_ Name (Current_Track))); 


end if; 


if ((Trk_Category (Current _Track)) = Air Platform) then 
Write Tgt_Class (VPKG.STR(Platform_Class (Current_Track))); 
Writesigeara 
(Identity Type’ Image (Track_Identity (Current _Track))); 
Write Tgt_Height (Integer’ Image (Integer 
((Altitude (Current_Track)* 3.0)))); 


end if; 


if (Tgt_CPA.Time_of CPA) < ABSOLUTE TIME PKG.NOW then 

Write _Tgt_CPA_PNO; 
elsif Tgt_Cpa_ Range < 500.0 then 

Write _Tgt_CPA_CBDR; 
else 

Write Tgt_CPA_Bearing (Natural’ Image (Natural (Tgt_Cpa_ Bearing) )); 
Write Tgt_CPA_Range (Natural’ Image (Natural (Tgt_Cpa_Range) )); 
Write _Tgt_CPA_Hours (Natural’ Image (Tgt_Cpa_Hours) ); 


Write_Tgt_CPA_Mins (Natural’ Image (Tgt_Cpa_Mins) ); 
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end sit, 
end if; 
if Hooked Track Flag = False and 
(abs (Hook_X - Target _Position_X)) < 10 and 


(abs (Hook_Y - Target _Position_Y)) < 10 then 


Hooked Track_Flag := True; 
Hooked Track := Current_Track; 
Hooked_Track_No := Natural (Track_Id_Number(Current_Track) ); 


Draw Tacplot_Hook (Target_Position_X, Target_Position_Y); 
Write Tgt_Cse (Natural’ Image (Natural (Radians_to Degrees 
(True_Course (Current_Track))))); 
Write Tgt_ Spd (Natural’ Image (Natural (Speed_in_ Knots 
(True Speed(Current_Track))))); 
Write Tot Brg 
(Natural’ Image (Natural (Radians to Degrees (True_Bearing 
(Ownship Track, Current_Track))))); 
Write Tgt_Range (Natural’ Image (Natural 
(Range_of (Target_Relative_Position)))); 
Write_Tgt_No 
(Natural’ Image (Natural (Track_Id_Number (Current _Track)))); 
Write Tgt_Ctl_ Type (Control_Type’ Image (Control (Current_Track))); 
Write Tgt_Update Hours (Natural’Image (Hours 
(Time_of Day (Most_Recent Observation 
(Current_Track) .Observation_Time)))); 
Write Tgt_Update Mins (Natural’ Image (Minutes (Time_of_Day 
(Most Recent Observation 
(Current_Track) .Observation_Time)))); 
Get_Latitude ((Current_Position (Current Track)), 
Tgt_Lat_Dir, Tgt_Lat_Deg, Tgt_Lat_ Min, Tgt_Lat_ Sec); 
Get_Longitude ((Current_Position(Current_Track)), 


Tgt_Long_Dir, Tgt_Long_Deg, Tgt_Long Min, 
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Tgt_Long_Sec); 

Write Tgt Lat Position (Natural’Image(Tgt_Lat_Deg), 
Natural’ Image (Tgt_Lat_Min), 
Natural’ Image (Tgt_Lat_ Sec), 

North South’ Image (Tgt_Lat_Dir)); 

Write Tgt_ Long Position(Natural’ Image (Tgt_Long_Deg), 
Natural’ Image (Tgt_Long_Min), 
Natural’ Image (Tgt_Long_ Sec), 
East_West’Image(Tgt_Long _Dir)); 

Write Rel Brg (Natural’ Image (Natural (Radians_to Degrees 

(Relative Bearing(Ownship Track, Current_Track))))); 
Write Rel Spd (Natural’ Image (Natural (Speed_In_Knots (Spd 
(Target Relative Velocity (Ownship Track, 
Current.) Track) )))))7 

Write Tgt_Angle (Natural’ Image (Natural (Radians_to_ Degrees 
(Relative Bearing(Current_Track,Ownship Track))))); 


Write Tgt_Amp Info (APKG.STR(Ampl_Info(Current_Track))); 


if ((Trk_Category (Current _Track)) = Surface_Platform) or 
((Trk_Category (Current_Track)) = Subsurface Platform) then 
Write Tgt_Class (VPKG.STR(Platform_Class(Current_Track) )); 
Write Tgt Id 
(Identity Type’ Image (Track_Identity (Current_Track))); 
Write Tgt_Name (VPKG.STR(Vessel Name (Current_Track))); 


end if; 


if ((Trk_Category (Current_Track)) = Air Platform) then 
Write Tgt_Class (VPKG.STR(Platform_Class(Current_Track))); 
Write Tgt_Id 
(Identity Type’ Image (Track_Identity (Current Track) )); 


Write Tgt_Height (Integer’ Image (Integer 
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( (Altitude (Current _Track)* 3.0))))-; 


end if; 


if (Tgt_CPA.Time_of CPA) < ABSOLUTE_TIME_PKG.NOW then 
Write Tgt_CPA_PNO; 
elsit Tat Coa kange < 500.0 then 
Write _Tgt_CPA_CBDR; 
else 
Write Tgt_CPA Bearing (Natural’ Image (Natural (Tgt_Cpa_ Bearing) )); 
Write Tgt_CPA_Range (Natural’ Image (Natural (Tgt_Cpa_ Range) )); 


Write _Tgt_CPA_Hours (Natural’ Image (Tgt_Cpa_ Hours) ); 


Write Tgt_CPA_Mins (Natural’ Image (Tgt_Cpa_ Mins) ); 
end if; 

end 2£% 
Current _Track Category := Trk_ Category (Current_Txrack) ; 


Case Current _Track_Category is 
when Unknown => 
Velocity X := Compute_Surface_ Velocity X (Current_Track); 
Velocity Y := Compute Surface Velocity Y (Current_Track); 
Draw_Tacplot_Unknown (Target _Position_X, Target_Position_Y); 
Draw _Tacplot_Speed Leader 
(Target_Position_X, Target _Position_Y, 
Velocity _X, Velocity Y); 
Draw_Tacplot_Track_No (Target_Position_X, Target Position Y, 
Natural’ Image (Track_No)); 
when Surface Platform => 
Target_Identity := Track_Identity (Current Track); 
Case Target_Identity is 
when Friendly => 


Velocity X := Compute Surface Velocity X (Current Track); 


Velocity _Y := Compute_Surface_ Velocity Y (Current_Track) ; 
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Draw Tacplot Friendly Surface (Target_Position_X, 
Target_Position_Y); 
Draw_Tacplot_Speed_ Leader 
(Target _Position_X, Target_Position Y, 
Velocity _X, Velocity _Y); 
Draw Tacplot_Track_No (Target_Position_ X, 
Target_Position Y, 


Natural’ Image (Track_No)); 


when Hostile => 

Velocity_X := Compute _Surface_Velocity X (Current_Track) ; 

Velocity _Y := Compute_Surface Velocity Y (Current_Track); 

Draw_Tacplot_Hostile Surface (Target_Position_X, 

Target_Position_Y); 

Draw_Tacplot_Speed_ Leader 

(Target_Position_X, Target _Position_Y, 
Velocity X, Velocity _Y); 

Draw _Tacplot_Track_No (Target_Position_X, 
Target_Position_Y, 
Natural’ Image (Track_No)); 

when Neutral => 
Velocity _X := Compute_Surface_Velocity_X (Current_Track) ; 
Velocity_Y := Compute Surface Velocity Y (Current_Track); 
Draw_Tacplot_Neutral Surface (Target _Position X, 
Target_Position_Y); 

Draw_Tacplot_ Speed Leader 

(Target. Position_X, Target_Position_Y, 

Velocity X, Velocity Y); 
Draw_Tacplot_Track_No (Target_Position X, 

Target Position 7, 


Natural’ Image (Track_No)); 
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when Unknown => 


Velocity X SOmpulce Surfaces Vvelccaty xX (Current Track); 


Velocity Y Compute _Surface Velocity _Y (Current_Track) ; 
Draw _Tacplot_Unknown_Surface (Target_Position_X, 
Target Position Y); 
Draw_Tacplot_Speed_ Leader 
(Target Position _X, Target Position _Y, 
Velocity X, Velocity Y); 
Draw Tacplot_Track_No (Target_Position_X, 
Target Position. x, 
Natural’ Image (Track_No) ); 
when others => null; 
end case; 
when Subsurface Platform => 


Target Identity := Track_Identity (Current_Track); 


Case Target Identity is 
when Friendly => 
Velocity X"-= Compute Surface Velocity X (Current_Track); 
VelocityoyY =] Compute Surface Velocity Y (Current_Track); 
Draw _Tacplot_ Friendly SubSurface (Target _Position_X, 
TarGeteEosttion ly); 
Draw_Tacplot_Speed_Leader 
(Target_Position_X, Target Position _Y, 
Velocity _X, Velocity Y); 
Draw_Tacplot_Track_No (Target Position X, 
Target_Position_Y, 


Natural’ Image (Track_No) ); 
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when Hostile => 
Velocity_X := Compute_Surface_Velocity_X (Current_Track); 
Velocity_Y := Compute_Surface_Velocity_ Y (Current_Track) ; 
Draw Tacplot_Hostile_SubSurface (Target_Position_X, 
Target Frosition Y)i- 
Draw_Tacplot_Speed_Leader 
(Target_Position_X, Target_Position_Y, 
Velocity X, Velocity Y); 
Draw Tacplot_Track_No (Target_Position_X, 
Target Position Y, 
Natural’ Image (Track_No)); 
when Neutral => 
Velocity _X := Compute Surface_Velocity_X (Current_Track); 
Velocity Y := Compute_Surface_Velocity_ Y (Current_Track); 
Draw Tacplot_ Neutral SubSurface (Target_Position_X, 
Target _Position_Y); 
Draw_Tacplot_ Speed Leader 
(Target _Position_X, Target_Position_Y, 
Velocity _X, Velocity Y); 
Draw_Tacplot_Track_No (Target _Position_X, 
Target Position Y, 
Natural’ Image (Track_No)); 
when Unknown => 
Velocity_X := Compute_Surface_Velocity_X (Current_Track); 
Velocity _Y := Compute_Surface_Velocity_Y (Current_Track); 
Draw_Tacplot_Unknown_SubSurface (Target _Position_X, 
Target _Position_Y); 
Draw_Tacplot_Speed_Leader 
(Target _Position_X, Target Position _Y, 
Velocity _X, Velocity Y); 


Draw_Tacplot_Track_No (Target_Position X, 
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Target Position_Y, 
Natural’ Image (Track No)); 
when others => null; 
end case; 
when Air Platform => 
Target Identity := Track_Identity (Current_Track); 
Case Target_Identity is 
when Friendly => 
Velocity _X := Compute Air Velocity _X (Current_Track); 
Velocity _Y := Compute_Air Velocity _Y (Current_Track); 
Draw Tacplot_Friendly Air (Target Position X, 
Target_Position Y); 
Draw _Tacplot Speed Leader 
(Target Position X, Target Position Y, 
Velocity_X, Velocity _Y); 
Draw_Tacplot_Track_No (Target_Position_X, 
Target_Position_Y, 
Natural’ Image (Track_No)); 
when Hostile => 
Velocity_X := Compute _Air Velocity X (Current_Track); 
Velocity ¥ -==@ompute Air Velocity Y (Current Track); 
Draw_Tacplot_ Hostile Air (Target _Position_X, 
Target Position Y); 
Draw_Tacplot_Speed_ Leader 
(Target_Position_X, Target Position Y, 
Velocity _X, Velocity Y); 
Draw_Tacplot_Track_No (Target Position xX, 
Targets Positions y, 


Natural’ Image (Track_No)); 
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when Neutral => 


ll 


Velocity X Compute Air Velocity X (Current Track); 


Velocity Y Compute _Air Velocity Y (Current_Track); 
Draw _Tacplot_ Neutral Air (Target_Position X, 
Target_Position_ Y); 
Draw_Tacplot Speed_Leader 
(Target_Position_X, Target_Position_Y, 
Velocity X, Velocity Y); 
Draw_Tacplot_Track_No (Target_Position X, 
Target_Position Y, 
Natural’ Image (Track_No)); 


when Unknown => 


Velocity X Compute_Air Velocity _X (Current_Track); 


Velocity Y := Compute_Air Velocity _Y (Current_Track); 


Draw_Tacplot_Unknown_Air (Target _Position_X, 
Target_Position_Y); 
Draw_Tacplot_Speed_ Leader 
(Target Position _X, Target Position Y, 
Velocity X, Velocity _Y); 
Draw _Tacplot_Track_No (Target_Position_X, 
Target_Position_Y, 
Natural’ Image (Track_No) ); 
when others => null; 
end case; 
when Region => null; 
when Path => null; 
when Special Point => 
Point_Category := Spec Point Category (Current_Track); 
case Point Category is 
when General => 


Velocity _X := Compute Surface Velocity _X (Current_Track); 
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Velocity _Y := Compute_Surface Velocity Y (Current Track); 
Draw_Tacplot_Ref_ Point (Target Position X, 
TaLgetseosi tion. Y); 

Draw_Tacplot_Speed_ Leader 

(Target_Position_X, Target Position_Y, 

Velocity X, Velocity Y); 
Draw_Tacplot_Track_No (Target_Position_ X, 

Target Position Y, 


Natural’ Image (Track_No) ); 


when Waypoint => 


Velocity X Compute Surface Velocity X (Current Track); 


Velocity _Y Compute_Surface Velocity _Y (Current_Track); 
Draw Tacplot_WayPoint (Target Position X, 
Target _Position_Y); 
Draw_Tacplot_Speed_ Leader 
(Target_Position_X, Target_Position_Y, 
Velocity X, Velocity Y); 
Draw _Tacplot_Track_No (Target_Position_X, 
Target Position Y, 
Natural’ Image (Track_No) ); 


when Nav_Hazard => 


Velocity X := Compute Surface Velocity X (Current Track); 


Velocity Y Compute Surface Velocity Y (Current_Track) ; 
Draw_Tacplot_Nav_Hazard (Target_Position_ X, 
Target Position Y); 

Draw_Tacplot_Speed_ Leader 

(Target_Position_X, Target _Position_Y, 

Velocity X, Velocity Y); 
Draw_Tacplot_Track_No (Target_Position_X, 

Target_Position_Y, 


Natural’ Image (Track_No)); 
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when Others => null; 
end case; 
when Man_in Water => 


Velocity X := Compute_Surface_ Velocity _X (Current_Track); 


Velocity Y := Compute_Surface Velocity Y (Current Track); 
Draw_Tacplot_Speed_Leader 
(Target Position_X, Target_Position_Y, 
Velocity X, Velocity Y); 
Draw Tacplot_Man_in Water (Target_Position_X, 
Target_Position_Y); 
Draw _Tacplot_Track_No (Target_Position_X, Target_Position_Y, 
Natural’ Image (Track_No)); 
when others => null; 
end case; 
end Process Tacplot Objects; 
procedure Process _Hook_Position(Hook_Position_X: in X_lib.Coordinate; 
Hook Position_Y: in X_lib.Coordinate) is 
begin 
if (abs (Hook_Position_X - Scale _ Selector_Up_Center_X)) < 15 and 
(abs (Scale Selector Up Center_Y - Hook_Position_Y)) < 15 and 
(Screen Scale Factor < (512.0 * 2000.0)) then 
Screen_Scale_ Factor := (Screen_Scale Factor * 2.0); 
Target Position Scale Factor := 
(Target_Position_Scale Factor * 2.0); 
Return; 
elsif 
(abs (Hook_Position_X - Scale Selector Down _Center_X)) < 15 and 
(abs (Scale Selector _Down_Center Y - Hook_Position_Y)) < 15 and 
(Screen_Scale Factor > 2000.0) then 


Screen_Scale_ Factor := (Screen_Scale_Factor / 2.0); 
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Peargecrar ostt1consocale Factors. = 


(Target_Position_Scale Factor / 2.0); 


Return; 
else 
Hooked Track Flag := False; 
Hooked_Track_No := 9999; 


Hook_X := Hook_Position_X; 


HOOk_Y := Hook Position ¥; 


if (abs(Hook Position_X - Centerpoint_X)) < 10 and 


(abs (Centerpoint_Y - Hook _Position_Y)) < 10 then 


Hooked_Track_Flag := True; 
Hooked Track := Ownship Track; 
Hooked Track_No := 0; 
end if; 
end if; 


end Process_Hook_ Position; 


procedure Set_AV Alerts is 
begin 
Vis Alert Flag := False; 
No Alert Flag :°=*False; 


end Set_AV Alerts; 


procedure Set Visual Alerts is 


begin 
Vis Alert Flag := True; 
NowAlert.flag <= False; 


end Set Visual Alerts; 
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procedure Disable Alerts is 
begin 
No Alert Flag := True; 


end Disable Alerts; 


procedure Set CPA Alert Range (Alert_Range: in Float) is 
begin 
CPA_Alert_Range := Alert_Range; 


end Set_CPA_Alert_Range; 


procedure Set Filter Status (Stat: in String) is 
begin 


if Stat = “ON” then 


Filter Set Flag := True; 
else 

Filter Set Flag := False; 
end if; 


end Set Filter Status; 


function Get_Ownship Track return Track is 
begin 
return Ownship Track; 


end Get_Ownship Track; 


function Get_Hooked_Track_Number return Natural is 
begin 
if Hooked Track_Flag then 
return Track_ID Number (Hooked Track); 
else return 9999; 
end if; 


end Get_Hooked_ Track_Number; 
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func ON Cet Hooked» Track) Obyece™ return Track is 
begin 
return Hooked Track; 


end Get_Hooked Track Object; 


end Process _Interface_Displays; 
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APPENDIX D 


DRAW DISPLAY GRAPHICS 


-- Author: Michael G. Stockwell 


-— Date : 21 September 1991 


-- Description: Handles all screen drawing and writing functions 


with X_Lib, Open_Interface_ Displays; 


use X_Lib, Open_Interface Displays; 


package Draw _Display Graphics is 


use Graphic Output; 


Box Width : X_Lib.Pixel 

Box Height : X_Lib. Pixel 
Centerpoint _X : X_Lib.Coordinate 
Centerpoint _Y¥ : X_Lib.Coordinate 
Hook Width : X_Lib.Pixel 
Hook_Height : X_Lib. Pixel 
Neutral Symbol +) DEEP ROastle 1) 


-- Initializing Display Procedures 


procedure Clear Interface Displays; 


procedure Draw Display Attributes; 
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ZOE 


20; 


350; 
350; 


>=40; 
:=40; 


a e? 
see "N”: 


-- Tacplot General Symbol Drawing Procedures 


in Coordinate; 


procedure Draw_Tacplot Hook (Track_Location_X 


Track_Location_ Y : in Coordinate) 


=e 


procedure Draw_Tacplot_ Speed Leader 


(Track_Location_X : in Coordinate; 
Tracks Location. ¥ : in Coordinate; 
Speed_Leader_ X : in Coordinate; 
Speed _ Leader Y : in Coordinate); 


procedure Draw_Tacplot_Track_No 


(Track_Location_X [tn Coordinate, 
Track _Location_Y 7 in Coordinate, 
Track _No String Rye q\ Schenk gfe) 


-- Tacplot Track Symbol Drawing Procedures 
procedure Draw _Tacplot_Unknown 
(rack Location X 3 in Coordinate; 
Track Location _Y : in Coordinate); 
procedure Draw Tacplot Friendly Air 


(Track_Location_X : in Coordinate; 


‘=e 


Track Location Y : in Coordinate) 
procedure Draw_Tacplot_Hostile Air 


(Track _Location_X : in Coordinate; 


“=e 


Track_Location_Y : in Coordinate) 
procedure Draw_Tacplot_Unknown_Air 


(Track _Location_X : in Coordinate; 


‘=e 


Track_Location_Y : in Coordinate) 
procedure Draw Tacplot_Neutral Air 
(Track_Location_X : in Coordinate; 


Track_Location_Y : in Coordinate); 
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procedure Draw Tacplot_Hostile Surface 
(Track_Location X 
Track_Location_Y 
procedure Draw_Tacplot_Friendly Surface 
(Track_Location X 
Track_Location_Y 
procedure Draw_Tacplot_Unknown_Surface 
(Track_Location_X 
Track_Location_Y 
procedure Draw_Tacplot_Neutral_ Surface 
(Track_Location_X 
Track_Location_Y 
procedure Draw_Tacplot_Hostile SubSurface 
(Track_Location_X 
Track Location _¥ 
procedure Draw_Tacplot_Neutral_SubSurface 
(Track_Location_X 
Track_Location_Y 
procedure Draw_Tacplot_Friendly_ SubSurface 
(Track_Location_X 
Track_Location_Y 
procedure Draw_Tacplot_Unknown_SubSurface 
(Track_Location_X 
Track_Location_Y 
procedure Draw_Tacplot_DLRP (Track_Location_X 


Track_Location_Y 
procedure Draw Tacplot Ref Point 


(Track_Location_X 


Track_Location Y 
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in 


in 


ni o° 


in 


in 


in 


in 


in 


in 


in 


in 


nite) 


in 


in 


Coordinate; 


Coordinate); 


Coordinate; 


Coordinate); 


Coordinate; 


Coordinate) ; 


Coordinate; 


Coordinate); 


Coordinate; 


Coordinate); 


Coordinate; 


Coordinate); 


Coordinate; 


Coordinate); 


Coordinate; 
Coordinate); 
Coordinate; 


Coordinate); 


Coordinate; 


Coordinate); 


procedure 


procedure 


procedure 


--Track Info 


procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 


procedure 


Draw_Tacplot_WayPoint 


(Track_Location_X 


Draw_Tacplot_Nav_Hazard 


Track_Location_Y 


(Track_Location_X 


Draw Tacplot_Man_in Water 


Track_Location_Y 


(Track_Location_X 


Write Procedures 


Write Tgt_Cse 

Write _Tgt_Spd 

Write Tgt_Id 

Write Tgt_Update Hours 
Write Tgt_ Update Mins 
Write Tgt_Brg 
Write Tgt_ Range 
Write_Tgt_No 

Write Tgt_Ctl_ Type 
Write _Tgt_CPA_Bearing 
Write Tgt_CPA_Range 
Write Tgt_CPA_Hours 
Write Tgt_CPA_Mins 
Write Tgt_CPA_PNO; 
Write Tgt_CPA_CBDR; 


Write Tgt_Lat_Position 
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Track_Location_Y 


(Course 
(Speed 

(Id 

(Hours 
(Minutes 
(Bearing 
(Tgt_Range 
(Number 
(Ctl_ Type 
(Bearing 
(Tgt_Range 
(Hours 


(Minutes 


(Lat_Deg 
Lat_Min 
Lat_Sec 


Lat_Dir 


in 


in 


in 


in 


in 


Coordinate; 


Coordinate) ; 


Coordinate; 


Coordinate); 


Coordinate; 


Coordinate); 


String); 
String); 
String) ; 
Siring) - 
String); 
String); 
String); 
String)’; 
String); 
String); 
String) ; 
Strang)? 


String) ; 


Steimay 
String; 
String; 


String) ; 


procedure 


procedure 
procedure 
procedure 
procedure 


procedure 


procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 


procedure 


Write Tgt_Long_ Position 


--Tacplot Write Procedures 


Write Hours 

Write Mins 

Write Range Scale 
Write Filters Status 


Write Alerts Status 


--System Status Write Procedures 


Write Link Status_Down; 
Write Gps Status_Down; 
Write Radar Status_Down; 
Write Sword Status Down; 
Write Gyro Status_Down; 
Write Fath_Status_ Down; 
Write Link Status Up; 
Write_Gps_Status_Up; 
Write Radar Status Up; 
Write Sword Status Up; 
Write Gyro Status_Up; 
Write Fath Status Up; 


Write Nav Status 


Intel Write Procedures 


procedure 
procedure 
procedure 
procedure 
procedure 


procedure 


Write Rel Spd 
Write _Rel Brg 
Write Tgt_Angle 
Write Tgt_Name 
Write Tgt_Amp Info 


Write Tgt Class 
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(Long Deg 
Long_Min 
Long_Sec 


Long_Dir 


(Hours 
(Minutes 
(Scale 
(Stat 


(Stat 


(Stat 


(Rel Spd 


(Rel _ Brg 


(Tgt_Angle: 


(Tgt_Name 


(Info 


(Class 


e 
® 


in 
in 
in 


in 


aly al 


String, 
Siri ngy 
String; 


String); 


String); 
String); 
Strang) > 
String); 


String); 


String): 


String); 
String. 
String); 
String); 
String) ; 


String); 


procedure Write Tgt Height (ALE 
-- Alerts Write Procedures 
procedure Write CPA_Alert Wrarget ID 
CPA _ Brg 
CPA_Rng 
CPA_Hrs 
CPA Mins 
-- Recommendations Write Procedures 
procedure Write Intercept _Recommendation (Target_No 
Rec _Cse 
Rec Spd 
Rec_Hrs 
Rec Mins 
end Draw Display Graphics; 
package body Draw Display Graphics is 
procedure Clear _ Interface Displays is 


begin 


in 


in 
in 
in 
in 


Sig! 


in 
in 
in 
in 


in 


X_ Clear Window (Tacplot_Display, Tacplot_Window) ; 


String); 


String; 
String: 
Strang; 
String; 


String); 


String: 
String; 
String; 
SELringG; 


Strang); 


X Clear Window (Track Info Display, Track_Info Window) ; 


X_ Clear Window (Alerts Display, Alerts Window) ; 


X_Clear Window (Intel Display, Intel Window) ; 


end Clear Inter facesD1Splayc; 


procedure Draw_Tacplot_Hook 
(Track_Location_X 
Track Location Y 


begin 


X Draw _Arc (Tacplot_ Display, Tacplot Drawing Space, 


Tacplot_Display Context, 
(Track_Location_X - 20), 


(rrack Location Y = 120), 
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in Coordinate; 


in Coordinate) is 


Hook_Width, Hook Height, 
0725022). 


end Draw_Tacplot_Hook; 


procedure Draw_Tacplot_Speed_Leader 


(Track_Location_X : in Coordinate; 
Track _Location_Y : in Coordinate; 
Speed Leader X : in Coordinate; 
Speed Leader Y : in Coordinate) is 


begin 
X_Draw_Line 

(Tacplot Display, Tacplot_Drawing_Space, 
Tacplot Display Context, 
Track Location _X, Track_Location_Y, 
(Track_Location_X + Speed_Leader X), 
(Track_Location_Y - Speed_Leader_Y)); 

end Draw _Tacplot_Speed_Leader; 

procedure Draw Tacplot_Track_No 
(Track_Location_X > in Coordinate; 


Track_Location_Y in Coordinate; 


Track_No_ String In eSeEing) as 


ee 


begin 
X_Draw_Image_String 
(Tacplot Display, Tacplot Drawing Space, 
Tacplot_ Display Context, 
(Track _Location_X - 8), 
(Track_Location_Y + 20), 
Track_No String) ; 


end Draw Tacplot_Track_No; 
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procedure Draw Display Attributes is 
begin 
X_Set_Foreground 
(Tacplot Display, Tacplot_Display Context, 1); 
X Draw_Arc 
(Tacplot_Display, Tacplot_ Drawing Space, 
Tacplot_Display Context, 
Tacplot Window X, Tacplot_Window_Y, 
(Box Width + 678), (Box_Height + 678), 0, 23039); 
Xba PATE 
(Tacplot Display, Tacplot_ Drawing Space, 
Tacplot_Display Context, 
Tacplot_Window_X, Tacplot_Window_Y, 
(Box Width + 678), (Box_Height + 678), 0, 23039); 
---- Tacplot Text Defaults 
X_Draw_Image_ String 
(Tacplot_Display, Tacplot_ Drawing Space, 
Tacplot_ Display Context, 
27 LS, 
“Scale: Sas 
X_Draw_Image_ String 
(Tacplot Display, Tacplot_Drawing_ Space, 
Tacplot Display Context, 
Stayer 
“Alerts : ee 
X_Draw_Image_ String 
(Tacplot_ Display, Tacplot_ Drawing Space, 
Tacplot_ Display Context, 
Sis cit - 


“Filters: “) 3 
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X_Draw_Image_ String 
(Tacplot Display, Tacplot_ Drawing Space, 
Tacplot_Display Context, 
5757. 45, 
“Intel : Name”); 
X_Draw_Image_String 
(Tacplot Display, Tacplot_Drawing_ Space, 
Tacplot_Display Context, 
5, 690, 
“Set / Drifts -2508Gh. 5"): 
X_Draw_Image_ String 
(Tacplot Display, Tacplot_Drawing_ Space, 
Tacplot_Display Context, 
Shor); 
“True Wind : 186 @ 6”); 
X_Draw_Image_String 
(Tacplot_Display, Tacplot_Drawing_Space, 
Tacplot Display Context, 
5; 660, 
“Depth : 2721 Bea 
X_Draw_Image_String 
(Tacplot_Display, Tacplot_Drawing_ Space, 
Tacplot_ Display Context, 
379, 690), 
“Time: a 
X Set Foreground (Tacplot Display, Tacplot_Display Context, 0); 
X_Draw_Arc 
(Tacplot_Display, Tacplot_Drawing_ Space, 
Tacplot_Display Context, 


(Centerpoint_X - 10), (Centerpoint_Y - 10), 
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Box Width, Box_Height, 0, 23039); 
X Draw Line 
(Tacplot_Display, Tacplot_Drawing Space, 
Tacplot Display Context, 
(Centerpoint X - 10), (Centerpoint_Y - 0), 
(Centerpoint X + 10), (Centerpoint_Y - 0)); 
X_Draw_Line 
(Tacplot_Display, Tacplot_Drawing_Space, 
Tacplot Display Context, 
(Centerpoint X + 0), (Centerpoint_Y - 10), 
(Centerpoint_X + 0), (Centerpoint_Y + 10)); 
--Draw Scale Selector Up/Down 
X_Draw_Rectangle 
(Tacplot Display, Tacplot_Drawing_ Space, 
Tacplot_Display Context, 
Deo, 40, 350); 
X Fill Rectangle 
(Tacplot_Display, Tacplot_Drawing_Space, 
Tacplot_Display Context, 
Deon 407-30); 
X_Draw_Rectangle 
(Tacplot_Display, Tacplot_Drawing_Space, 
Tacplot_ Display Context, 
45, 25, 40, 30); 
X_Set_Foreground (Tacplot_Display, Tacplot_Display Context, 4); 
X_ Fill Rectangle 
(Tacplot_Display, Tacplot_Drawing Space, 
Tacplot Display Context, 
437-2074 07s 0) 


X Set Foreground (Tacplot_Display, Tacplot Display Context, 0); 
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X_Draw_Image_String 
(Tacplot Display, Tacplot Drawing Space, 
Tacplot_Display Context, 
57, 45,”Up”); 
X_ Set Foreground (Tacplot_Display, Tacplot_Display Context, 1); 
X_Draw_Image_String 
(Tacplot Display, Tacplot_Drawing Space, 
Tacplot_Display Context, 
9, 45, “Down”); 
-- System Status Defaults 
X_Draw_Image_ String 
(System_Status Display, System_Status Drawing Space, 
System_Status_Display Context, 
5, 242, 
“Navigation: “); 
end Draw Display Attributes; 
--- Tacplot Drawing Procedures 
procedure Draw_Tacplot_Unknown 
(Track_Location_X in COOLGMnate, 
Tracks loCactonm. : in Coordinate) is 
begin 
X Draw_Arc 
(Tacplot_Display, Tacplot Drawing Space, 
Tacplot Display Context, 
(Track Locationex.-920)%) (Track Location Y =- 5), 
Box Width, (Box Height - 10), 0, 23039); 
X_ Draw_Arc 
(Tacplot_ Display, Tacplot_Drawing Space, 
Tacplot Display Context, 
(Track Location]xX™="5), “(Track Location Y - 10), 


(Box Width - 10), Box_Height, 0, 23039); 
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end Draw_Tacplot_Unknown; 
procedure Draw _Tacplot_ Friendly Air 
(Track_Location_X > in Coordinate; 
Track_Location_Y : in Coordinate) is 
begin 
X Draw_Arc 
(Tacplot Display, Tacplot_Drawing Space, 
Tacplot Display Context, 
(Track _Location_X - 10), (Track_Location_Y - 10), 
Box Width, Box Height, 
0, 11520); 
end Draw Tacplot_ Friendly Air; 
procedure Draw Tacplot_Hostile Air 
(Track_Location X : in Coordinate; 
Track_Location_Y : in Coordinate) is 
begin 
X Draw Line 
(Tacplot_Display, Tacplot_Drawing_ Space, 
Tacplot Display Context, 
(Track Location X = 10), e(Track Location Y + 10), 
Track Location_X, (Track_Location Y - 10)); 
X_ Draw Line 
(Tacplot_Display, Tacplot Drawing Space, 
Tacplot_Display Context, 
Trachea Location X;"(Track Location Y - 10), 
(Track_Location_X + 10), (Track _Location_Y + 10)); 
end Draw _Tacplot_Hostile Air; 
procedure Draw _Tacplot_ Unknown Air 
(Track_Location X : in Coordinate; 


Track Location _Y : in Coordinate) is 
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begin 
X Draw_Line 
(Tacplot_Display, Tacplot_Drawing_ Space, 


Tacplot_ Display Context, 


(Track_Location_X - 10), (Track_Location_Y + 10), 
(Track _Location_X - 10), (Track_Location_Y - 10)); 
X_ Draw_Line 
(Tacplot_Display, Tacplot_Drawing_ Space, 
Tacplot_ Display Context, 
(Track _Location_X - 10), (Track_Location_Y - 10), 
(Track Location xX + 10), (ireack Location y —s10)), 
X Draw_Line 
(Tacplot Display, Tacplot_ Drawing Space, 
Tacplot Display Context, 
(Track_Location_X + 10), (Track _Location_Y - 10), 
(Track_Location_X + 10), (Track_Location_Y + 10)); 
end Draw_Tacplot_Unknown_Air; 
procedure Draw_Tacplot_Neutral_ Air 
(Track_Location_X : in Coordinate; 
Track_Location_Y : in Coordinate) is 
begin 
X_Draw_Line 
(Tacplot_ Display, Tacplot_ Drawing Space, 
Tacplot Display Context, 
(Track_Location_X - 10), (Track_Location_Y + 10), 
(Track Location xX —910)) (Duack Location Y — 10)):; 
X Draw_Line 
(Tacplot Display, Tacplot_Drawing Space, 
Tacplot_Display Context, 
(Track_Location_X - 10), (Track_Location_Y - 10), 
(Track_Location_X + 10), (Track_Location_Y - 10)); 


122 


X_Draw_Line 


(Tacplot Display, Tacplot_Drawing_ Space, 
Tacplot_Display Context, 
(Track_Location_X + 10), (Track_Location_Y - 10), 


(Track _Location_X + 10), (Track_Location_Y + 10)); 


X Draw_Image String 
(Tacplot Display, Tacplot_Drawing Space, 
Tacplot Display Context, 
Track_Location_X, Track_Location_Y, 


Neutral _ Symbol); 


end Draw _Tacplot_Neutral_Air; 
procedure Draw_Tacplot_Hostile Surface 


(Track _Location_X in Coordinate; 


Track_Location_Y in Coordinate) is 


begin 
X Draw_Line 


(Tacplot_ Display, Tacplot_Drawing_ Space, 
Tacplot_ Display Context, 


(Track_Location_X - 10), (Track_Location_Y + 0), 


(Track_Location_X - 0), (Track_Location_Y - 10)); 


X_Draw_Line 
(Tacplot_ Display, Tacplot Drawing Space, 


Tacplot_ Display Context, 


(Track_Location_X - 0), (Track_Location_Y - 10), 


(Track_Location_X + 10), (Track _Location_Y - 0)); 


X_Draw_Line 
(Tacplot_Display, Tacplot_Drawing Space, 
Tacplot_ Display Context, 
(Track_Location_X + 10), 


(Frackwlbocavron Y= 0), 


(Track_Location_X + 0), (Track_Location_Y + 10)); 
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X Draw_Line 
(Tacplot_ Display, Tacplot Drawing Space, 
Tacplot_Display Context, 
(Track Location X ™1 70), (irackebLocation Y + 910), 
(Track_Location_X - 10), (Track_Location_Y + 0)); 
end Draw_Tacplot_Hostile Surface; 
procedure Draw_Tacplot_ Friendly Surface 
(Track_Location_X ern COOLGinate: 
Track_Location_Y : in Coordinate) is 
begin 
X Draw_Arc 
(Tacplot_Display, Tacplot_Drawing Space, 
Tacplot_ Display Context, 
(Track Location_X - 10), (Track_Location_Y - 10), 
Box Width, Box_Height, 
07 23037). 


end Draw_Tacplot_Friendly Surface; 


procedure Draw_Tacplot_Unknown_Surface 

(Track_Location_X : in Coordinate; 

Track_Location_Y : in Coordinate) is 
begin 
X_Draw_Rectangle 

(Tacplot_Display, Tacplot_Drawing_ Space, 
Tacplot_Display Context, 

(Track _Location_X - 10), (Track Location Y - 10), 
Box_ Width, Box_Height); 


end Draw_Tacplot_Unknown_Surface; 
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procedure Draw_Tacplot_ Neutral Surface 
(Track_Location_X yin Goordinate, 
Track_Location_Y f imeGOOrdinate) is 
begin 
X Draw_Rectangle 
(Tacplot Display, Tacplot_Drawing_ Space, 
Tacplot Display Context, 
(TeackeLocdetonex — 10), ) (Track Location yy =- 10), 
Box Width, Box Height); 
X_Draw_Image_ String 
(Tacplot Display, Tacplot_Drawing_Space, 
Tacplot_Display Context, 
Track Location_X, Track_Location_Y, 
Neutral Symbol); 
end Draw_Tacplot Neutral Surface; 
procedure Draw_Tacplot_ Hostile SubSurface 
(Track Location X in Coordinate; 
Track_Location_Y : in Coordinate) is 
begin 
X_Draw_Line 
(Tacplot Display, Tacplot_Drawing Space, 
Tacplot_ Display Context, 
(Track_Location_X - 0), (Track Location Y + 10), 
(Track_Location_X - 10), (Track _Location_Y - 10)); 
X_Draw_Line 
(Tacplot Display, Tacplot_ Drawing Space, 
Tacplot_Display Context, 
(Track_Location_X + 0), (Track_Location_y + 10), 
(Track_Location_X + 10), (Track_Location_Y - 10)); 


end Draw_Tacplot_Hostile SubSurface; 
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procedure Draw _Tacplot_Neutral_ SubSurface 
(Track_Location_X : in Coordinate; 
Track_Location_Y : in Coordinate) is 
begin 

X_Draw_Line 
(Tacplot_ Display, Tacplot_Drawing_Space, 
Tacplot Display Context, 
(Track@Location X = 10), (Track Location ly — 10), 
(Track Location_X = 10), (TEack™ Location» Y + 10)5; 

X_Draw_Line 
(Tacplot Display, Tacplot_Drawing_Space, 
Tacplot Display Context, 
(Track _Location_X - 10), (Track_Location_Y + 10), 
(Track _Location_X + 10), (Track_Location_Y + 10)); 

X_Draw_Line 
(Tacplot Display, Tacplot Drawing Space, 
Tacplot_ Display Context, 
(Track_Location_X + 10), (Track_Location_Y + 10), 
(Track Location x + 10), 5 (Track Bocatvonm:. — 10) Fr, 

X_Draw_Image_String 
(Tacplot_ Display, Tacplot_Drawing_Space, 
Tacplot_ Display Context, 
Track_Location_X, Track_Location_Y, 
Neutral Symbol); 

end Draw_Tacplot_Neutral SubSurface; 

procedure Draw _Tacplot_ Friendly SubSurface 
(Track_Location_X : in Coordinate; 
Track_Location_Y ; in Coordinate) is 
begin 
X Draw_Arc 


(Tacplot_Display, Tacplot_Drawing_Space, 
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Tacplot Display Context, 
(Track Location X - 10), (Track_Location_Y - 10), 
Box_Width, Box_Height, 
11520, 11520); 
end Draw Tacplot Friendly SubSurface; 
procedure Draw_Tacplot_Unknown_SubSurface 
(Track_Location_X : in Coordinate; 
Track_Location_Y : in Coordinate) is 
begin 
X_Draw_Line 
(Tacplot_Display, Tacplot_ Drawing Space, 
Tacplot Display Context, 
(Track Location X - 10), (Track_Location_Y - 10), 
(Track_Location_X - 10), (Track_Location_Y + 10)); 
X_Draw_Line 
(Tacplot_ Display, Tacplot_Drawing_Space, 
Tacplot Display Context, 
{Track Location X - 10), (Track _Location_Y + 10), 
(Track_Location_X + 10), (Track_Location_Y + 10)); 
X_Draw_Line 
(Tacplot_Display, Tacplot_ Drawing Space, 
Tacplot_Display Context, 
(Track Location X + 10), (Track = Hocation Y + 10), 
(Prack Location. 170), (Track abocations.Y = .10)); 
end Draw_Tacplot_Unknown_SubSurface; 
procedure Draw_Tacplot_DLRP 
(Track_Location X : in Coordinate; 
Track_Location Y : in Coordinate) is 
begin 
X_Draw_Rectangle 


(Tacplot_Display, Tacplot_Drawing Space, 
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Tacplot Display Context, 

(Track Location X - 10), (Track_Location_Y - 10), 
Box Width, Box_Height); 

X_Draw_Line 

(Tacplot Display, Tacplot_Drawing_Space, 

Tacplot_ Display Context, 

(Track Location X 7210), (Track Location _Y — 10)7 

(Track _Location_X + 10), (Track_Location_Y + 10)); 

X Draw_Line 

(Tacplot Display, Tacplot Drawing Space, 

Tacplot Display Context, 

(Track Location_X - 10), (Track_Location_Y + 10), 

(Track _Location_X + 10), (Track_Location_Y - 10)); 

end Draw_Tacplot_DLRP; 
procedure Draw _Tacplot_ Ref Point 

(Track _Location_X > im Coordinate, 

Track_Location Y sin eCCOrdi nate) eis 
begin 
X_ Draw_Line 

(Tacplot_ Display, Tacplot_ Drawing Space, 

Tacplot Display Context, 

(Track, Locataonmxe = sO) Pracketocation Y -— 10), 

(Track _Location_X + 10), (Track Location _Y + 10)); 

X Draw_Line 

(Tacplot_Display, Tacplot_ Drawing Space, 

Tacplot Display Context, 

(Track_Location X — 10), (Track Location y + 10), 

(Track Location + 10) trackeLocation y= 10) )r; 


end Draw_Tacplot_ Ref Point; 
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procedure Draw _Tacplot_ WayPoint 


(Track_Location_X : in Coordinate; 
Track_Location_Y : in Coordinate) is 
begin 
X_ Draw_Line 
(Tacplot Display, Tacplot_Drawing Space, 
Tacplot_ Display Context, 
(Teacks Location xX = 10), (Track Location Y — 10), 
(Track _Location_X + 10), (Track_Location Y 10)); 
X_Draw_Line 
(Tacplot_ Display, Tacplot Drawing Space, 
Tacplot_Display Context, 
(Track _Location_X - 10), (Track_Location_Y + 10), 
(Track_Location_X + 10), (Track_Location_Y - 10)); 
X Draw_Line 
(Tacplot_Display, Tacplot_Drawing_ Space, 
Tacplot_ Display Context, 
(Track _Location_X + 10), (Track_Location_Y - 10), 
(Track_Location_X + 0), (Track_Location_Y - 10)); 
end Draw_Tacplot_WayPoint; 
procedure Draw _Tacplot_Nav_ Hazard 
(Track_Location_X 7 im =cOordinate,; 
Track_Location_Y : in Coordinate) is 
begin 
X_Draw_Line 
(Tacplot_Display, Tacplot_Drawing Space, 
Tacplot_ Display Context, 
(Track_Location_X - 10), (Track_Location_Y - 0), 


(Track_Location_X + 10), (Track_Location_Y + 


X Draw _Line 


(Tacplot_Display, Tacplot_Drawing_ Space, 
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0)); 


Tacplot Display Context, 
(Track Location xX —"10)7 (track Location, Y = 40), 
(Track Location X - 5), (Track_Location_ Y - 5)); 
X Draw Line 
(Tacplot Display, Tacplot_Drawing Space, 
Tacplot Display Context, 
(Track_Location_X + 10), (Track_Location_Y - 0), 
(Track Location_X + 5), (Track_Location Y + 5)); 
end Draw_Tacplot_Nav_Hazard; 
procedure Draw_Tacplot_Man_in Water 
(Track_Location_X : in Coordinate; 
Track_Location_Y : in Coordinate) is 
begin 
X Draw_Arc 
(Tacplot Display, Tacplot_ Drawing Space, 
Tacplot_ Display Context, 
(Track_Location_X - 10), (Track_Location_Y - 10), 
Box Width, Box_Height, 0, 23039); 
X_Draw_Arc 
(Tacplot Display, Tacplot Drawing Space, 
Tacplot_ Display Context, 
(Track LocataonsxXe-8o)9) (Track LocatweanyY — 5), 
(Box Width / 2), (Box _Height / 2), 0, 23039); 
end Draw _Tacplot_Man_ in Water; 
--- Track Information Write Procedures 
procedure Write Tgt_Cse (Course: mest ring) is 
begin 
X_Draw_Image_String 
(Track_Info_ Display, Track_Info Drawing Space, 
Track_Info Display Context, 


415 vel Sy 
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“Target Course: d Be ed 
X Draw_Image_ String 
(Track_Info_ Display, Track_Info Drawing Space, 
Track_Info_ Display Context, 
527, 15, "Course)-: 
end Write _Tgt_Cse; 
procedure Write Tgt Spd (Speed: in String) is 
begin 
X_Draw_Image_String 
(Track_Info Display, Track_Info Drawing Space, 
Track_Info_ Display Context, 
415, 30, 
“Target Speed : Kis”) 7 
X_Draw_Image_ String 
(Track_Info_ Display, Track_Info_Drawing_Space, 
Track_Info Display Context, 
5927, 30, Speed); 
end Write_Tgt_Spd; 
procedure Write_Tgt_Id (Id: in String) is 
begin 
X_Draw_Image_String 
(Track_Info Display, Track_Info_Drawing_ Space, 
Track_Info_ Display Context, 
5, 80, 
“Target ID:”); 
X_Draw_Image_String 
(Track_Info_Display, Track_Info Drawing Space, 
Track_Info Display Context, 
93, 80, Id); 


end Write_Tgt_Id; 
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procedure Write_Tgt Update Hours (Hours: in String) is 
begin 
X Draw_Image_String 
(Track Info Display, Track_Info_ Drawing Space, 
Track_Info_ Display Context, 
Spo 
“Last Update:”); 
X_Draw_Image_String 
(Track_Info Display, Track_Info_Drawing_Space, 
Track_Info Display Context, 
109, 9S,eHours) ; 
end Write Tgt_Update_Hours; 
procedure Write Tgt_Update Mins (Minutes: in String) eis 
begin 
X_ Draw_Image_String 
(Track_Info Display, Track_Info Drawing Space, 
Track_Info_Display Context, 
133, 95, Minutes); 
end Write _Tgt_Update_Mins; 
procedure Write Tgt_Brg (Bearing: in String) is 
begin 
X_Draw_Image_String 
(Track_Info Display, Track_Info Drawing Space, 
Track_Info Display Context, 
So, 15; 
“Target Bearing: TG 
X_Draw_Image_String 
(Track_Info Display, Track_Info Drawing Space, 
Track_Info Display Context, 
125, 15, Bearing); 


end Write _Tgt Brg; 
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procedure Write Tgt_Range (Tgt_Range: ifMcotring) 2s 
begin 
X_Draw_Image_ String 
(Track_Info Display, Track_Info_ Drawing Space, 
Track Info Display Context, 
S20, 
“Target Range: Yards”); 
X Draw_Image_ String 
(Track_Info_Display, Track_Info_Drawing_Space, 
Track_Info Display Context, 
125, 30, Tgt_Range); 
end Write Tgt_Range; 
procedure Write_Tgt_No (Number: in String) is 
begin 
X Draw_Image_ String 
(Track_Info Display, Track_Info_Drawing_ Space, 
Track_Info Display Context, 
Zoo eno; 
"Gontact: Sy; 
X Draw Image String 
(Track_Info Display, Track_Info Drawing Space, 
Track_Info Display Context, 
339, 15, Number); 
end Write Tgt_No; 
procedure Write Tgt_Ctl_ Type (Ctl _ Type: in String) is 
begin 
X_Draw_Image_String 
(Track_Info_ Display, Track_Info Drawing Space, 
Track_Info_Display Context, 
328, 95, 


“Control Type:”); 
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X Draw_Image_String 
(Track_Info_ Display, Track_Info Drawing Space, 
Track Into Display Context, 
440, 95, Ctl Type); 
end Write_Tgt_Ctl_Type; 
procedure Write Tgt_CPA_ Bearing (Bearing: in String) is 
begin 
X Draw _Image_String 
(Track_Info Display, Track_Info_ Drawing Space, 
Track_Info Display Context, 
183, 50, 
“Target CPA: / at “)3 
X_Draw_Image_String 
(Track_Info Display, Track_Info Drawing_Space, 
Track_Info_Display Context, 
271450 Bearing); 
end Write Tgt_CPA_ Bearing; 
procedure Write Tgt_CPA_Range (Tgt_Range: in String) is 
begin 
X_Draw_Image_String 
(Track_Info Display, Track_Info Drawing Space, 
Track_Info_Display Context, 
318, 50, Tgt_Range); 
end Write_Tgt_CPA_Range; 
procedure Write Tgt_CPA_Hours (Hours: in String). is 
begin 
X_Draw_Image_String 
(Track_Info Display, Track_Info_ Drawing Space, 
Track_Info Display Context, 
396, 507 Houses): 


end Write Tgt_CPA_Hours; 
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procedure Write Tgt_CPA_Mins (Minutes: in String) is 
begin 
X_Draw_Image_String 
(Track_Info_ Display, Track_Info_ Drawing Space, 
Track_Info Display Context, 
423, 50, Minutes); 
end Write _Tgt_CPA_Mins; 
procedure Write _Tgt_CPA_PNO is 
begin 
X_Set_Background (Track_Info Display, 
Track _Info Display Context, 14); 
X_Draw_Image_String 
(Track_Info Display, Track_Info Drawing Space, 
Track_Info Display Context, 
231, 50, “Passed and Opening”); 
X_ Set Background (Track_Info Display, 
Track_Info Display Context, 7); 
end Write Tgt_CPA_PNO; 
procedure Write_Tgt_CPA_CBDR is 
begin 
X_Set_Background (Track_Info_ Display, 
track Into Display -Context,, 12); 
X Draw_Image_String 
(Track_Info_ Display, Track_Info Drawing Space, 
Track_Info Display Context, 
251,007. Ai CeDR at “)3 
X_Set_Background (Track_Info_ Display, 
Track_Info Display Context, 7); 


end Write_Tgt_CPA_CBDR; 
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procedure Write Tgt Lat Position (Lat_Deg: in String; 
Lat Min eam string, 
Lat_Sec: in String; 
Hat Dir: in String)@us 
begin 
X_Draw_Image_String 
(Track_Info Display, Track_Info_ Drawing_Space, 
Track_Info Display Context, 
142, 65, 
“Target Position: “); 
X_Draw_Image_String 
(Track_Info_Display, Track_Info_ Drawing Space, 
Track_Info Display Context, 
278, 65, Lat_Deg); 
X Draw_Image_ String 
(Track_Info Display, Track_Info Drawing Space, 
Track_Info_ Display Context, 
302, 65, Lat_Min); 
X_Draw_Image String 
(Track_Info_Display, Track_Info_Drawing_Space, 
Track_Info Display Context, 
326,65, Lat. Sec); 
X_Draw_Image_String 
(Track_Info Display, Track_Info_ Drawing Space, 
Track_Info_ Display Context, 
356, 6S7earepar); 
end Write Tot LatePosrteron, 
procedure Write _Tgt_Long Position (Long Deg: in String; 
Hong, Min: in String: 
Long Sec: in String; 


LONGuDiE: in; String) 
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begin 
X_ Draw_Image_String 
(Track Info Display, Track_Info_Drawing Space, 
Track Info Display Context, 
S02, 60, / “ji; 
X_Draw_Image_String 
(Track_Info Display, Track_Info_Drawing_Space, 
Track_Info_Display Context, 
388, 65, Long Deg); 
X_Draw_Image_String 
(Track_Info_ Display, Track_Info_Drawing_Space, 
Track_Info Display Context, 
420, 65, Long_Min); 
X Draw_Image_ String 
(Track_Info_ Display, Track_Info Drawing Space, 
Track_Info Display Context, 
444, 65, Long _Sec); 
X_Draw_Image_String 
(Track_Info_Display, Track_Info_Drawing_Space, 
Track Info Display Context, 
476, 65, Long_Dir); 
end Write_Tgt_Long Position; 
--- Tacplot Write Procedures 
procedure Write Hours (Hours: In String) is 
begin 
X_Set_Foreground 
(Tacplot_Display, Tacplot_Display Context, 1); 
X_Draw_Image String 
(Tacplot_ Display, Tacplot_Drawing_ Space, 
Tacplot_Display Context, 


617, 690, Hours); 
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X_Set_Foreground 
(Tacplot_ Display, Tacplot_Display Context, 0); 
end Write Hours; 
procedure Write Mins (Minutes: Ae ot Ling) mas 
begin 
X_oe€t Foreground 
(Tacplot_Display, Tacplot_Display Context, 1); 
X_Draw_Image_String 
(Tacplot_Display, Tacplot_Drawing_ Space, 
Tacplot_Display Context, 
641, 690, Minutes); 
X Set _Foreground 
(Tacplot_Display, Tacplot_Display Context, 0); 
end Write Mins; 
procedure Write Range Scale (Scale: in String) is 
begin 
X_Draw_Image_String 
(Tacplot_ Display, Tacplot_Drawing_ Space, 
Tacplot_Display Context, 
53,15, Scale) 
X_Draw_Image_String 
(Tacplot_Display, Tacplot_Drawing_Space, 
Tacplot_Display Context, 
101, 15, “Miles; 
end Write Range Scale; 
procedure Write Filters Status (Stat: ii eoe ring) eis 
begin 
X_Draw_Image_String 
(Tacplot_ Display, Tacplot_Drawing Space, 
Tacplot_Display Context, 


647, 30, Stat); 
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end Write Filters Status; 
procedure Write Alerts Status (Stat: im otrang)i 1s 
begin 
X_Draw_Image_ String 
(Tacplot Display, Tacplot_Drawing_ Space, 
Tacplot Display Context, 
647, 15, Stat); 
end Write Alerts Status; 
-- System Status Write Procedures 
procedure Write Gps _Status_Down is 
begin 
X Set_Background 
(System Status Display, System_Status_Display Context, 1); 
X Set _Foreground 
(System Status Display, System Status Display Context, 12); 
X_Draw_Image_String 
(System_Status_ Display, System_Status_Drawing_Space, 
System Status Display Context, 
101, 15, 
“DOWN” ); 
X_Set_ Background 
(System_Status_Display, System_Status Display Context, 14); 
X_Set_Foreground 
(System_Status Display, System Status Display Context, iS By 
end Write Gps_Status_Down; 
procedure Write Radar Status Down is 
begin 
X_ Set_Background 
(System_Status_Display, System_Status_ Display Context, 1); 
X_ Set Foreground 


(System_Status_Display, System_Status_Display Context, 12); 
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X Draw_Image_String 
(System Status Display, System_Status_ Drawing Space, 
System _Status_Display Context, 
LOLs 0; 
“DOWN” ) ; 
X_ Set_Background 
(System_Status_ Display, System_Status_ Display Context, 14); 
X_Set_Foreground 
(System_Status_ Display, System_Status_Display Context, 1); 
end Write Radar Status_Down; 
procedure Write Link Status_Down is 
begin 
X_ Set Background 
(System_Status_ Display, System_Status_ Display Context, 1); 
XKJSet Foreground 
(System_Status_ Display, System_Status_Display Context, 12); 
X_Draw_Image_String 
(System_Status_ Display, System_Status_Drawing_Space, 
System Status Display Context, 
MOI 45, 
“DOWN” ) ; 
X_Set_Background 
(System Status Display, System Status Display Context, 14); 
X_Set_Foreground 
(System_Status_Display, System Status Display Context, 1); 
end Write_Link_Status_Down; 
procedure Write Fath_Status_ Down is 
begin 
X_Set_Background 
(System_Status_Display, System_Status Display Context, 1); 


X_ Set_Foreground 
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(System Status Display, System_Status_ Display Context, 12); 
X_ Draw_Image_ String 
(System Status Display, System_Status_ Drawing Space, 
System Status Display Context, 
346, 15, 
“DOWN” ) ; 
X_Set_ Background 


(System Status Display, System_Status Display Context, 14); 


X Set Foreground 

(System Status Display, System_Status_Display Context, 1); 
end Write Fath_Status_Down; 
procedure Write Gyro Status Down is 
begin 

X Set Background 


(System Status Display, System_Status Display Context, 1); 


X_Set_Foreground 


(System_Status Display, System_Status Display Context, 12); 
X_Draw_Image_String 
(System Status Display, System_Status_ Drawing Space, 
System Status Display Context, 
346, 30, 
“DOWN” ) ; 
X_Set_Background 


(System_Status Display, System_Status_Display Context, 14); 


X_ Set Foreground 
(System_Status Display, System_Status Display Context, 1); 
end Write Gyro Status Down; 
procedure Write Sword Status Down is 
begin 
X_Set_Background 
(System_Status_ Display, System_Status Display Context, 1); 
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xX Seth oregrounda 


(System Status Display, System_Status Display Context, 12); 
X_Draw_Image_String 
(System Status Display, System Status Drawing Space, 
System _Status Display Context, 
346, 45, 
“DOWN” ) ; 
X_Set Background 
(System_Status Display, System_Status_Display Context, 14); 
X_Set_Foreground 
(System Status Display, System_Status_ Display Context, 1); 
end Write Sword Status Down; 
procedure Write Gps Status Up is 
begin 


X_Set_Background 
(System_Status_ Display, System_Status Display Context, 13); 


X_Set_Foreground 


(System Status Display, System_Status_ Display Context, 1); 


X_Draw_Image_ String 
(System_Status_ Display, System_Status Drawing _ Space, 
System_Status Display Context, 

Ol LS; 
“UP” ); 
X_Set_Background 


(System_Status_ Display, System_Status Display Context, 14); 


X_Set_Foreground 


(System_Status_ Display, System_Status Display Context, 1); 


end Write Gps Status _ Up; 


procedure Write Radar Status Up is 


begin 


X_Set_Background 
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(System Status Display, System_Status_ Display Context, 13); 


X_ Set_Foreground 


(System Status Display, System_Status_ Display Context, 1); 
X Draw_Image_String 
(System_Status Display, System_Status_ Drawing Space, 
System_Status Display Context, 
101, 30, 
“UP”) i 
X_Set Background 


(System Status_Display, System_Status Display Context, 14); 


X_ Set Foreground 


(System_Status_Display, System_Status_ Display Context, 1); 
end Write Radar Status_Up; 
procedure Write_Link_Status_Up is 
begin 


X Set Background 
(System Status Display, System_Status_Display Context, 13); 


X_ Set _Foreground 


(System_Status Display, System_Status Display Context, 1); 
X_ Draw_Image_ String 
(System_Status Display, System_Status_ Drawing Space, 
System Status Display Context, 
101, 45, 
“UP"); 


X_Set_Background 
(System_Status_Display, System_Status_ Display Context, 14); 


AeoCtlPOnreground 


(System_Status_Display, System_Status_ Display Context, 1); 


end Write Link _Status_Up; 
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procedure Write Fath Status Up is 
begin 
X Set Background 
(System_Status_ Display, System_Status_ Display Context, 13); 
X_Set_Foreground 
(System Status Display, System_Status Display Context, 1); 
X_Draw_Image_ String 
(System_Status Display, System_Status Drawing Space, 
System Status Display Context, 
346, 15, 
SUR?) 
X_Set_Background 
(System Status Display, System_Status Display Context, 14); 
X Set Foreground 
(System Status Display, System Status Display Context, 1); 
end Write Fath Status Up; 
procedure Write _Gyro_Status_Up is 
begin 
X_Set_Background 
(System Status Display, System_Status Display Context, 13); 
X_Set_Foreground 
(System_Status Display, System Status Display Context, 1); 
X Draw_Image_String 
(System_Status_ Display, System_Status_ Drawing Space, 
System_Status_ Display Context, 
346, 30, 
“UP™); 
X_Set_Background 
(System_Status Display, System_Status_ Display Context, 14); 
X_Set_Foreground 


(System_Status_Display, System_Status Display Context, 1); 
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end Write Gyro Status Up; 
procedure Write Sword Status_Up is 
begin 
X Set Background 
(System_Status_ Display, System_Status_Display Context, 13); 
X_ Set_Foreground 
(System Status_Display, System_Status Display Context, 1); 
X Draw_Image_String 
(System_Status Display, System_Status_ Drawing Space, 
System _Status_Display Context, 
346, 45, 
“UP”); 
X_Set_Background 
(System Status Display, System Status Display Context, 14); 
X_Set_Foreground 
(System_Status_Display, System_Status Display Context, 1); 
end Write Sword Status_Up; 
procedure Write Nav Status (stat: an Strang) is 
begin 
X_Set_Background 
(System_Status_Display, System Status Display Context, 13); 
X_Set_Foreground 
(System_Status Display, System_Status Display Context, 1); 
X_ Draw_Image String 
(System_Status_Display, System_Status_ Drawing Space, 
System_Status Display Context, 
LOl, 242, Stat); 
X_ Set_Background 
(System Status_Display, System_Status_ Display Context, 14); 
X_Set_Foreground 


(System_Status Display, System_Status Display Context, 1); 
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end Write Nav_Status; 


--- Intel Write Procedures 


procedure Write Rel Brg (Rel Brg: Hg heal ploy) aL 


begin 


X_Draw_Image_String 


(Intel Display, Intel _Drawing_Space, 
Intel Display Context, 
La ete le 


“Contact Relative Bearing: a 


X Draw Image String 


(Intel Display, Intel _ Drawing Space, 
Intel Display Context, 


213, 15, Rel Brg); 


X_Draw_Image_String 


(Intel Display, Intel Drawing Space, 
Intel Display Context, 


253, 15, “Degrees”); 


end Write Rel Brg; 


-- Intel / Relative Contact Info 


procedure Write Rel Spd (Rel Spd: in String) is 


begin 


X_ Draw Image String 


(Intel _ Display, Intel Drawing Space, 
Intel Display Context, 
5730" 


“Contact Relative Speed : 8 es 


X_Draw_Image_String 


(Intel Display, Intel Drawing Space, 
Intel Display Context, 


213, 30, Rel Spd); 


X_Draw_Image_ String 
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(Intel Display, Intel_Drawing Space, 
Intel Display Context, 
253750, “Knots” )+ 
end Write Rel_ Spd; 
procedure Write Tgt_Angle (Tgt_Angle: in String) is 
begin 

X_Draw_Image_String 
(Intel Display, Intel_Drawing Space, 
Intel Display Context, 
5, 160, 
“Target Angle: a 

X_Draw_Image_String 
(Intel Display, Intel Drawing Space, 
Intel Display Context, 
117, 160, Tgt_Angle); 

X_Draw_Image_ String 
(Intel Display, Intel Drawing_Space, 
Intel Display Context, 
157, 160, “Degrees”); 

end Write _Tgt_Angle; 
procedure Write Tgt_ Name (Tgt_Name : in String) is 
begin 

X_Draw_Image_String 
(Intel Display, Intel Drawing Space, 
Intel Display Context, 
5, 60, “Track Name: “); 

X_Draw_Image_String 
(Intel Display, Intel Drawing Space, 
Intel_Display Context, 
109, 60, Tgt Name); 


end Write _Tgt_Name; 
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procedure Write Tgt_Class (Class : in String) is 
begin 
X Draw_Image_String 
(Intel Display, Intel_Drawing_ Space, 
Intel Display Context, 
5, 75, “TracksClass.- or 
X_Draw_Image_String 
(Intel Display, Intel_Drawing_ Space, 
Intel Display Context, 
110, 75, Class); 
end Write Tgt_ Class; 
procedure Write Tgt_Amp Info (Info : in String) is 
begin 
X_Draw_Image_ String 
(Intel Display, Intel_Drawing_ Space, 
Intel Display Context, 
5 90 je Trackuinto: “) 
X_Draw_Image_String 
(Intel _ Display, Intel Drawing Space, 
Intel Display Context, 
109, 90, Info); 
end Write Tgt_Amp Info; 
procedure Write Tgt_Height (Alt : in String) is 
begin 
X Draw_Image_String 
(Intel Display, Intel Drawing Space, 
Intel Display Context, 
5,0.105, “Track Altitude: ™); 
X_Draw_Image String 
(Intel _ Display, Intel_Drawing_ Space, 


Intel Display Context, 


148 


Bier, Oboe eye wlish 
X Draw_Image_String 
(Intel Display, Intel_Drawing Space, 
Intel Display Context, 
LOZ 2 200, Heet), 
end Write _Tgt_Height; 


-- Alerts Write Procedures 


proceduresWrite CPAJAlerc (Target. 1D | INeot ring, 
CPA Brg Aan St Eine; 
CPA_Rng 7 Innot ring, 
CPA Hrs 7 in ot bing? 
CPA_Mins an Serang)-1s 
begin 


X_Set_Foreground 
(Alerts Display, Alerts Display Context, 12); 
X_Fill Rectangle 
(Alerts Display, Alerts Drawing Space, 
Alerts Display Context, 
0, 0, 433, 90); 
X_Set_Foreground 
(Alerts Display, Alerts Display Context, 1); 
X_Draw_Image_String 
(Alerts Display, Alerts Drawing Space, 
Alerts Display Context, 
iho COntacE )- 
X Draw _Image_ String 
(Alerts Display, Alerts Drawing Space, 
Alerts Display Context, 
65, 45, Target_ID); 
X Draw _Image_String 


(Alerts Display, Alerts Drawing Space, 
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Alerts Display Context, 
81,445, * :) CPA7 
X_Draw_Image_String 
(Alerts Display, Alerts Drawing Space, 
Alerts Display Context, 
139, 45, CPA_Brg); 
X Draw_Image_String 
(Alerts Display, Alerts Drawing Space, 
Alerts Display Context, 
179, 45, “Wee)? 
X Draw_Image_String 
(Alerts Display, Alerts Drawing Space, 
Alerts Display Context, 
Wee, 45, CPA Rng); 
X_ Draw_Image_ String 
(Alerts Display, Alerts Drawing_Space, 
Alerts Display Context, 
245, 45, “Yards at Time :”); 
X_Draw_Image_String 
(Alerts Display, Alerts _Drawing_ Space, 
Alerts Display Context, 
355,45, CPA Hrs); 
X_Draw_Image_String 
(Alerts Display, Alerts Drawing Space, 
Alerts Display Context, 
STIG ao, CEA Mins): 


end Write CPA Alert; 
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procedure Write Intercept_Recommendation 


(Target_No aT SELINg; 
Rec Cse : Snwyoe ring: 
Rec_Spd 7 an Strang: 
Rec_Hrs re 8 OME) Sp eel) os fr 
Rec Mins ; in String) is 


begin 
X_Draw_Image_ String 
(Recommendations Display, Recommendations_Drawing_Space, 
Recommendations Display Context, 
5) pe tls 
“Intercept to Target #”); 
X_Draw_Image_String 
(Recommendations Display, Recommendations_Drawing_ Space, 
Recommendations Display Context, 
Jigs a ey ama leo 
Target_No); 
X_Draw_Image_String 
(Recommendations Display, Recommendations Drawing Space, 
Recommendations Display Context, 


3, 30, 


X_Draw_Image_String 
(Recommendations Display, Recommendations _Drawing_Space, 
Recommendations Display Context, 
S45, 
“Intercept Course:”); 

X_Draw_Image_String 
(Recommendations Display, Recommendations_Drawing_Space, 
Recommendations Display Context, 


149, 45, 
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Rec Cse); 
X_Draw_Image_String 
(Recommendations Display, Recommendations Drawing Space, 
Recommendations Display Context, 
5, el, 
“Intercept Speed :”); 
X_Draw_Image_String 
(Recommendations Display, Recommendations Drawing Space, 
Recommendations Display Context, 
149, 60, 
Rec_ Spd); 
X_Draw_Image_String 
(Recommendations Display, Recommendations Drawing Space, 
Recommendations Display Context, 
Siu on 
“Intercept Time  =:7); 
X_Draw_Image_String 
(Recommendations Display, Recommendations Drawing _ Space, 
Recommendations Display Context, 
149, 75, 
Rec_ Hrs); 
X_Draw_Image_ String 
(Recommendations Display, Recommendations Drawing_Space, 
Recommendations Display Context, 
La Sn oy 
Rec Mins); 
end Write_Intercept Recommendation; 


end Draw Display Graphics; 
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APPENDIX E 


TACPLOT SET PACKAGE 


-= Author: Michael G. Stockwell 
== Date : 12 September 1991 


== Description: Opens and reads generic set package for Track 


objects 


with TRACK_PKG; use TRACK_PKG; 
with PROCESS Interface Displays; use PROCESS Interface_Displays; 


with GENERIC_SET_PKG; 
package TACPLOT_PKG is 
type TACPLOT is private; 


procedure EMPTY_TACPLOT; 
procedure ADD_TACPLOT_ELEMENT (Element: in Track); 


procedure DISPLAY_TACPLOT; 


package TACPLOT ELEMENT SET PKG is 
new GENERIC_SET_PKG (T => TRACK, Block _Size => 2); 
private 
type TACPLOT is 


record 


183 


S : TACPLOT ELEMENT_SET_PKG.SET; 
end record; 
end TACPLOT_ PKG; 


package body TACPLOT_PKG is 


tacplot set < tacplot, 


element > track: 


procedure DRAW_TACPLOT_ELEMENTS (Current_Track : in Track) is 
begin 
Process Tacplot_Objects (Current_Track); 


end DRAW_TACPLOT_ELEMENTS; 


procedure SCAN_TACPLOT is new TACPLOT_ELEMENT_ SET _PKG.GENERIC_SCAN 


(generate => draw _tacplot_elements); 


procedure EMPTY TACPLOT is 
begin 
if TACPLOT_ELEMENT_SET_PKG.SIZE(tacplot_set.s) /= 0 then 
TACPLOT ELEMENT SET PKG.EMPTY (tacpleteset™s) ; 
end if; 


end EMPTY TACPLOT; 


procedure ADD TACPLOT_ELEMENT (element: in Track) is 
begin 
TACPLOT_ELEMENT_SET_PKG.ADD (element, tacplot_set.s); 


end ADD _TACPLOT_ ELEMENT; 


procedure DISPLAY TACPLOT is 
begin 


SCAN TACPLOT (Cacplot set .s); 
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end DISPLAY TACPLOT; 


end TACPLOT PKG; 
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with 
with 
with 


with 


use 


APPENDIX F 


MAIN PROCEDURE 


X_lib; use X_Lib; 

tae; use tae; 

X_ Windows; 

TEXT IO, TRACK_PKG, GLOBAL_POSITION_PKG, GLOBAL_OBSERVATION_PKG, 
VELOCITY PKG, ANGLE PKG, SPEED PKG, RELATIVE TIME PKG, TACPLOT_ PKG, 
ABSOLUTE_TIME PKG, DISTANCE PKG, DIRECT IO, TRACK_DATABASE PKG, 
CPA_PKG, RELATIVE_POSITION PKG, VECTOR_2_PKG, FILTER_PKG, 

SYSTEM STATUS _PKG, NAVIGATION PKG, INTEGRATION SYSTEM PKG, 

MONITOR DISPLAYS, OPEN_INTERFACE DISPLAYS, 

PROCESS INTERFACE DISPLAYS, 


DRAW_DISPLAY GRAPHICS, SYSTEM _STATUS PKG, INTERCEPT PKG; 


TEXT_IO, TRACK_PKG, GLOBAL POSITION PKG, GLOBAL_OBSERVATION PKG, 
VELOCITY PKG, ANGLE PKG, SPEED PKG, RELATIVE TIME PKG, TACPLOT PKG, 
ABSOLUTE_TIME PKG, DISTANCE PKG, TRACK_DATABASE_PKG, CPA_PKG, 
RELATIVE POSITION PKG, VECTOR 2 PKG, FILTER PKG, 

SYSTEM STATUS PKG, NAVIGATION PKG, INTEGRATION SYSTEM PKG, 

MONITOR DISPLAYS, OPEN_INTERFACE DISPLAYS, 

PROCESS INTERFACE DISPLAYS, 


DRAW_DISPLAY_GRAPHICS, SYSTEM_STATUS PKG, INTERCEPT PKG; 
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procedure menu is 


OWN_OBS 
OWN_CRS 
OWN_SPD 

OWN _CRS_ SPD 
ADD_TRACK_FLAG 
MOD_TRACK_FLAG 
MOD_TRACK 
DELETE TRACK 
TARGET BEARING 
TARGET RANGE 
TARGET OBS 
TGT_BRG RNG 
TRK 

OWNSHIP 

LAT DEG 

LAT MIN 

LAT SEC 

LAT DIR 

LONG DEG 

LONG MIN 

LONG SEC 
LONG_DIR 

ALERT RANGE 
GPS_SyYs 

RADAR SYS 
LINK_SYS 
GYRO_SYS 

FATH SYS 

PIT SYS 


EQPT STATUS 


GLOBAL OBSERVATION; 
Angle Pkg.ANGLE; 
SPEED; 

VELOCITY; 

BOOLEAN 

BOOLEAN 

NATURAL 

NATURAL 
ANGLE_PKG.ANGLE 
DISTANCE 

GLOBAL OBSERVATION; 
RELATIVE POSITION; 
TRACK; 

TRACK; 

NATURAL 

NATURAL 

NATURAL 
NORTH_SOUTH 
NATURAL 

NATURAL 

NATURAL 

EAST WEST 

FLOAT 

BOOLEAN 

BOOLEAN 

BOOLEAN 

BOOLEAN 

BOOLEAN 

BOOLEAN 


STATUS; 
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FALSE; 
FALSE; 
9999; 
9999; 
020; 
5000.0; 


N; 

0; 

0; 

0; 

EB; 
3000.0; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 


FALSE; 


TRACK_ID 
TRACK CAT 
TRACK _CSE 
TRACK_SPD 


STATION TIME 


STATION SPEED 
INTERCEPT_TRACK_NO 
INTERCEPT_TRACK 
INTERCEPT BY TIME : 


INTERCEPT _ BY SPEED : 


TRCAT 
RID 
RG 

FC 

DA 
PID 


EQ 


package menu_s 


IDENTITY TYPE; 
TRACK CATEGORY; 
ANGLE _PKG.ANGLE; 
SPEED; 

NATURAL 

FLOAT 

NATURAL 

TRACK; 

BOOLEAN 
BOOLEAN 
TRACK_CATEGORY 
RELATION_ID 
DISTANCE 


FILTER CATEGORY; 


iS 
25% 
9999; 


TRUE; 


FALSE; 


AIR_PLATFORM; 


LESS OR_EQUAL; 


100000.0; 


DISTANCE ATTRIBUTE _ID; 


IDENTITY TYPE; 


EQUALITY _RELATION_ID 


upport is 


= 


EQUAL; 


package taefloat_io is new text_io.float_ io (taefloat); 


procedure 
-- BEGIN E 
procedure 
procedure 
procedure 
procedure 


procedure 


procedure 
procedure 


procedure 


initializePanels (file 


VENT_HANDLERS 


menu_track_button (info 
menu_plots_menu (info 
menu_alerts_ button (info 


menu_filters_button(info 


menu_defaults button 


(info 
menu_intel_ button (info 
menu_nav_button (info 
menu_lists_ button (info 
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in 


in 


in 


in 


inestering) ; 


tae_wpt.event_context_ptr); 
tae_wpt.event_context_ptr); 
tae _wpt.event_context_ptr); 


tae_wpt.event_context_ptr); 


tae _wpt.event_context_ptr); 
tae wpt.event context ptr); 
tae _wpt.event_context_ptr); 


tae_wpt.event_context_ptr); 


procedure 
procedure 
procedure 
procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 


procedure 


menu_coding button (info 


Sorry _OK_ Button 
Sorry OK 2 


trk_sel_NoName(Q1 


(info 
(info 


(Aanto 


trk sel trk sel cancel 


(info 


trk_sel_trk_sel_lat_lon 


(info 


trk_sel_trk_sel_brg_rng 


(into 


trk_sel_trk_sel_screen 


frnto 


sel_brg_tgt_bearing (info 


sel_brg_sel_brg_canx_1 


(info 


sel_brg_ Enter Data (info 


seleorg sel brg canx 


sel_brg_ tgt_range 
glob _pos_lat_min 
glob _ pos lat_sec 
glob_pos_long_ deg 
glob_pos_long_min 
glob pos_long_sec 
glob_pos_lat_deg 
glob_pos_spacer 
glob_pos_ Spacer 1 
glob pos _lat_dir 


glob _pos_long_dir 


(info 
(into 
(info 
(info 
(info 
(info 
(info 
(info 
(info 
(info 
(into 


(info 


confirm _conf_continue 


(info 
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in 


in 


in 


in 


an 


ale gl 


bl | 


in 


in 


alg! 
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an 
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tae_wpt.event_context_ptr); 
tae_wpt.event_context_ptr); 
tae _wpt.event_context ptr); 


tae_wpt.event_context ptr); 


tae_wpt.event_context ptr); 


tae _wpt.event_context_ptr); 


tae_wpt.event_context_ptr); 


tae _wpt.event_context_ptr); 


tae_wpt.event_context ptr); 


tae wpt.event_context_ptr); 
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tae _wpt.event_context_ptr); 
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tae_wpt.event_context_ptr); 
tae_wpt.event_context_ptr); 
tae_wpt.event_context_ptr); 


tae _wpt.event_context_ptr); 


tae_wpt.event_context_ptr); 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


conftirmicontecancel: 
(info 
alrt sel Senter data 
(info 
alrt_sel_cpa_alrt_range 
(info 
alrt_sel_ alrt_canx_l 
(info 


alrt_sel_alrt_canx_2 


(into 
eqpt_sel_gps_sel (info 
eqpt_sel_radar_sel (info 
eqpt_sel link _sel (info 
eqpt_sel_ gyro_sel (info 
eqpt_sel fath_sel (info 
eqpt_sel_ pit sel (info 


eqpt_sel_enter_data(info 
title exit system (info 
exit_ok_exit_ continue 
(info 
exit_ok_exit_cancel (info 
trk_mod_trk_identity 
(info 
trk_mod_trk_control (info 
trk_mod_trk_point_type 
(ineo 
trk_mod_trk_category 
(info 
trk_mod_trk_position 
(info 


trk_mod_trk_amp_ info 
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tae wpt. 


tae wpt. 


tae _wpt. 
tae wpt. 
tae _wpt. 
tae wpt. 
tae _wpt. 
tae _ wpt. 
tae _wpt. 
tae _wpt. 


tae_wpt. 


tae _wpt. 


tae _wpt. 


tae _wpt. 


tae _wpt. 


tae _wpt. 


tae_wpt. 


tae _wpt. 


event_context_ ptr); 


event CONtext ptr, 


event context ptr); 


event_context_ptr); 


event_context_ptr); 
event_context_ptr); 
event_context_ptr); 
event_context_ptr); 
event COntextsptri” 
event_context_ ptr); 
event _context_ptr); 
event Context prerise 


event Context per 


event_context_ptr); 


event_context_ptr); 


event_context_ptr); 


event_context_ptr); 


event_context_ptr); 


event_context_ptr); 


event_context_ptr); 


procedure 
procedure 
procedure 
procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 


procedure 


trk_mod_trk_name 
Prk modvtrk Course 
trk_mod_trk_speed 


trk_mod_trk_height 


(aint © 
(info 
(info 
(an e£o 


(info 


trk_mod_trk_mod_enter 


(info 


trk_mod_trk_plat_class 


(anfo 


Pilesselicanxuti lite: 


(info 


filt sel_type select 


(info 


fide se | winter =complete 


(info 


Peltesel padderriter (into 


Ing file erng, type 
Pnigatilterng limit 
tagera le hgemrim 
rng_filt_ operator 
rng _filt_ complete 
rng_filt_cancel 
cat_filt_cancel 
cat filtJeatetype 
cat_filt_operator 
id filt id type 
id_filt_cancel 

id filt_Operator 
int_cept_method 
intmeeptareme 


int_cept speed 


(info 
(info 
(info 
(info 
(info 
(info 
(info 
(info 
(info 
(info 
(info 
(info 
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tae _wpt.event_context_ptr); 
tae _wpt.event_context_ptr); 
tae _wpt.event_context_ptr); 
tae_wpt.event_context_ptr); 


tae_wpt.event_context_ptr); 


tae_wpt.event_context_ptr); 


tae_wpt.event_context_ptr); 


tae_wpt.event_context_ ptr); 


tae_wpt.event_context_ptr); 


tae_wpt.event_context_ptr); 
tae_wpt.event_context_ptr); 
tae_wpt.event_context_ptr); 
tae_wpt.event_context_ptr); 
tae_wpt.event_context_ptr); 
tae _wpt.event_context_ptr); 
tae_wpt.event_context_ptr); 
tae _wpt.event_context_ptr); 
tae_wpt.event_context_ptr); 
tae_wpt.event_context_ptr); 
tae_wpt.event_context ptr); 
tae_wpt.event_context_ptr); 
tae_wpt.event_context_ptr); 
tae _wpt.event_context ptr); 
tae_wpt.event_context_ptr); 
tae _wpt.event_context ptr); 


tae_wpt.event_context_ptr); 


procedure int_cept_compute (info : in tae wpt.event_context_ptr); 
procedure int_cept_cancel (info : in tae wpt.event_ context ptr); 
-- END EVENT_HANDLERs 
end menu_support; 
-~- Program Declarations 
use menu_Support; 
use tae.tae misc; 
use Events; 


use Graphic Output; 


i@jeploe Butter : X Lib.String_Pointer := new String’ (“ “); 
Tacplot_Symbol > X_Lib.Keyboard.Key Sym; 

Tacplot Status : Compose Status_Record; 

Tacplot_X Event : Event := new Events.Event_Record; 
System_Info_X_ Event : Event := new Events.Event_Record; 
Track_Info_X_ Event : Event := new Events.Event_Record; 
Alerts _X Event : Event := new Events.Event_Record; 
Recommendations X Event : Event := new Events.Event_Record; 
Intel X_ Event >: Event := new Events.Event_Record; 
System Status _X Event >: Event := new Events.Event_ Record; 
theDisplay : X_Windows .Display; 


user_ptr 


tae wpt.event_context_ptr; 


menu_info tae wpt.event_ context ptr; 


Sorry _info 


ee 


tae_wpt.event context _ptr; 


trkvselwinte tae wpt. eventsecentext per, 


sel_brg info : tae_wpt.event_context ptr; 
glob_pos_info : : tae_wpt.event context _ptr; 
confirm_info ; tae_wpt.event_context_ptr; 
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alrt_sel_info > tae wpt.event context ptr; 


eqpt_sel_ info : tae wpt.event context ptr; 
title info : tae_wpt.event_context_ptr; 
exit_ok_info ; tae wpt.event_context ptr; 
trk_mod_info : tae_wpt.event_context_ptr; 
filtuselwanLo : tae wpt.event_context ptr; 
Vai go glee eb 12 est ep ee) ; tae _wpt.event_context_ptr; 
Cat ot Pit eanto ; tae wpt.event_context_ptr; 
id fits santo : tae _wpt.event_context_ptr; 
int_cept_info : tae_wpt.event_context_ptr; 
etype ;: wpt_eventtype; 

wptEvent >; tae _wpt.wpt_eventptr; 


package body menu_support is 
procedure initializePanels (file : in string) is 
use tae.tae co; 
use tae.tae_misc; 
tmp_info : tae _wpt.event_context_ptr; 
begin 
-~- do one Co_New and Co ReadFile per resource file 
tmp_info := new tae _wpt.event context; 
Co_ New (0, tmp_info.collection) ; 
-- could pass P_ABORT if you prefer 


Co_ReadFile (tmp_info.collection, file, P_CONT); 


-- pair of Co_Finds for each panel in this resource file 


menu_info := new tae_wpt.event_context; 


menu_info.collection := tmp_info.collection; 


Co_Find (menu_info.collection, “menu_v”, menu_info.view); 
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Co_Find (menu_info.collection, “menu_t”, menu_info.target) ; 


Sorry_info := new tae wpt.event_ context; 
Sorry _info.collection := tmp_info.collection; 
Corr and (Sorry info.collection, “Sorry _v”, Sorry _info.view) ; 


Co Find (Sorry _info.collection, “Sorry t”, Sorry_info.target); 


trk_sel_info := new tae_wpt.event_context; 
trk_sel_info.collection := tmp_info.collection; 
Co Find (trk_sel_info.collection, 

“trk_sel_v”, trk_sel_info.view) ; 
Co Find (trk/seliinto.colleeuion, 


“trk_sel_t”, trk_sel_info.target) ; 


sel_brg_info := new tae_wpt.event_context; 
sel_brg_info.collection := tmp_info.collection; 
Co Find (sel_brg info.collection, 

“sel_brg v”, sel_brg_info.view); 
Co_Find (sel_brg_info.collection, 

“selubrout”, selgbrg info.target)- 
glob_pos_info := new tae wpt.event_ context; 
glob _pos_info.collection := tmp_info.collection; 
Co Find (glob pos info.collection; 

“glob_pos_v”, glob pos_info.view); 
Co_Find (glob _pos_info.collection, 

“glob pos t”, glob pos info.target); 
confirm_info := new tae wpt.event_context; 
confirm_info.collection := tmp_info.collection; 
Co Find (confirm ingercollection, 

“confirm_v”, confirm_info.view) ; 


Co_Find (confirm_info.collection, 
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Weonerrm it (7) Contrruniwnrostargec) ; 
alrt_sel info := new tae_wpt.event_context; 
alrt_sel_info.collection := tmp_info.collection; 
Co Find (alrt_sel_info.collection, 

“alrt_sel_v”, alrt_sel_info.view); 
Co Find (alrt_sel_info.collection, 

“alrt sel t”, alrt_sel_info.target); 

eqpt_sel_ info := new tae_wpt.event_context; 

egpt_sel_info.collection := tmp_info.collection; 
Co_ Find (eqpt_sel_info.collection, 

“egpt_sel_v”, eqpt_sel_info.view); 
Co Find (eqpt_sel_info.collection, 

“eqpt sel t”, eqpt_sel_info.target) ; 
title info := new tae_wpt.event_context; 
title _info.collection := tmp_info.collection; 

Co Find (titlemintejcollection, “title v”, title info.view) ; 
Co Find (title info.collection, “title t”, title_info.target); 
exit_ok_info := new tae_wpt.event_context; 
exit_ok_info.collection := tmp_info.collection; 
Co_Find (exit_ok_info.collection, 

“exit_ok_v”, exit_ok_info.view) ; 
Co Find (exit_ok_info.collection, 

“exit _ok_t”, exit_ok_info.target) ; 
trk_mod_info := new tae_wpt.event_context; 
trk_mod_info.collection := tmp_info.collection; 
Co_Find (trk_mod_info.collection, 

“trk_mod_v”, trk_mod_info.view) ; 
Co_Find (trk_mod_info.collection, 

“trk_mod_t”, trk_mod_info.target) ; 
filt_sel_info := new tae_wpt.event_context; 


filt_sel_info.collection := tmp_info.collection; 
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Co Find (£11 sel intoveollection, 

“filt sel _v”, £filt_sel_ info-view); 
Co Find (f1i1t_sel_info.collection, 

“filt sel t7,) filtssel pinrorcargeoy, 
rng_filt_info := new tae _wpt.event context; 
rng _filt_info.collection := tmp_info.collection; 
Co Find (rng filt_info.collection, 

“rng fat v”, rng_fielt info. view); 

Co Find (rng filt info.e@llection, 

“eng filtst 7 engefat tein tontarge:): 
cat_filt_info := new tae _wpt.event_context; 
cat filt info.collection = tmpeinto collection, 
Co. Find’ (cat sfilt into colleceron, 

“cat filtwu’, cat Pelt into.view)- 

Co Find (Catgtiit into. jcolM@eecion, 
Neat. filtestajecat fiit info.vdrget); 
id filt_info := new tae wpt.event_context; 
id filt infoscolllectitonss=atmpe ta collection, 
Co Find sidwtrlemintojcolicerion, 

“id filt v”, idgfiilte@anto jv ton), 
CosPindsi(id filt mmtoucellection, 

“id filt tt? uidstalt@intestargetyEy 
int_cept_info := new tae_wpt.event_ context; 
int_cept_info.collection := tmp_info.collection; 
Co_Find (int_cept_info.collection, 

“int_cept_v”, int _cept_info.view) ; 
Co_Find (int_cept_info.collection, 

“int cept t”, int cept intortargec):, 

-- Since there can now be MULTIPLE INITIAL PANELS defined from 
-- within the TAE WorkBench, call Wpt_NewPanel for each panel 


-- defined to be an initial panel (but not usually all the panels 
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-- which appear in the resource file). 
tae _wpt.Wpt_NewPanel (““, title_info.target, title_info.view, 
X_Windows.Null Window, title_info, tae_wpt.WPT_DEFAULT, 
title info.panel_ id); 
tae wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
X Windows.Null_ Window, menu_info, tae_wpt.WPT_ DEFAULT, 
menu_info.panel_id); 
end initializePanels; 
---BEGIN EVENT_HANDLERS 
procedure menu_track_button (info : in tae _wpt.event_context_ ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 
count : taeint; 
begin 
tae_vm.Vm_Extract_ Count (info.parm_ptr, count); 
1f count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1)); 
end if; 
OWNSHIP := GET _OWNSHIP_ TRACK; 
if s_equal (value(1), “Add a New Track”) then 
ADD_TRACK_FLAG := TRUE; 
tae _wpt.Wpt_NewPanel 
(““, trk_sel_info.target, trk_sel_info.view, 
X_Windows.Null_ Window, trk_sel_ info, tae_wpt.WPT DEFAULT, 


trk_sel_info.panel_id); 


elsif s equal (value(1l), “Delete the Selected Track”) then 
DELETE_TRACK := GET_HOOKED_ TRACK NUMBER; 
if DELETE_TRACK /= 9999 then 


tae_wpt.Wpt_ NewPanel 
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confirm_info.target, confirm_info.view, 
X Windows.Null Window, confirm_info, tae_wpt.WPT DEFAULT, 
confirm_info.panel_id); 
else 
null; 
end if; 
elsif s_equal (value(1l), “Modify the Selected Track”) then 
MOD TRACK FLAG := TRUE; 
MOD TRACK := GET_HOOKED_TRACK_NUMBER; 
if MOD_TRACK /= 9999 then 
tae _wpt.Wpt_NewPanel 
(““, txrk_mod_info.target, trk_mod_info.view, 
X Windows.Null Window, 
trk_mod_info, tae_wpt.WPT_DEFAULT, 
trk_mod_info.panel_id); 
else 
null; 
end if; 
end if; 
end menu_track_button; 
procedure menu_plots_menu (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 
count :; taeint; 
begin 
tae_vm.Vm_Extract_Count (info.parm_ ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm ptr, 1, value(l)); 


end if; 
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if s equal (value(1), “Maps and Grids”) then null; 
tae _wpt.Wpt NewPanel (““, Sorry_info.target, Sorry_info.view, 
X_ Windows.Null Window, Sorry _info, tae_wpt.WPT_ DEFAULT, 
Sorry_info.panel_id); 
elsif s equal (value(1), “Zones and Areas”) then null; 
tae_wpt.Wpt_NewPanel (““, Sorry _info.target, Sorry info.view, 
X_Windows.Null Window, Sorry info, tae_wpt.WPT_ DEFAULT, 
Sorry _info.panel_id); 
elsif s equal (value(1), “Sectors and Formations”) then null; 
tae wpt.Wpt_ NewPanel (““, Sorry_info.target, Sorry info.view, 
X_Windows.Null_ Window, Sorry info, tae_wpt.WPT_DEFAULT, 
Sorrysinto panel id); 
enceLt; 
end menu_plots_menu; 
procedure menu_alerts_button (info : in tae_wpt.event_context_ptr) is 
waluem. arrayas. .l)Morestring a(t Lacitaccont -STRINGSIZE) ; 
count : taeint; 
begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
1£ count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm ptr, 1, value(l1)); 
end if; 
if s_ equal (value(1), “Visual Alerts Only”) then 
SET_VISUAL_ ALERTS; 
elsif s_equal (value(1), “Audio and Visual Alerts”) then 
SET_AV_ALERTS; 
elsif s_ equal (value(1), “Disable all Alerts”) then 
DISABLE ALERTS; 


end if; 
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end menu_alerts bucteon, 
procedure menu filters button (info = in tae wpt-event context prerjea. 
value : arrayygs(l..1) of string (1 tae taccont sTRINGSIZE); 
count : taeint; 
begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae vm.Vm_Extract_SVAL (info.parm_ ptr, 1, value(1)); 
end if; 
if s equal (value(l), “Disable all Display Filters”) then 
INTEGRATION SYSTEM.CLEAR FILTER; 
SET _FILTER_STATUS (“OFF”); 
elsif s_ equal (value(1), “Activate Default Display Filters”) then 
INTEGRATION SYSTEM.CLEAR FILTER; 
SET FILTER_STATUS (“OFF”); 
end if; 
end menu_filters_ button; 
procedure menu_defaults_button (info : in tae _wpt.event_context ptr) is 
value : array (1..1) of "String (1..taeltaecont.STRINGSIZE) ; 
count : taeéint; 
begin 
tae_vm.Vm_Extract_ Count (info.parm_ ptr, count); 
if count <= 0 then 
null; 
elise 
tae_vm.Vm_Extract_SVAL (info.parm ptr, 1, value(l)); 
end if; 
if s equal (value(l1), “Set System Filters”) then null; 


tae _wpt.Wpt_NewPanel 
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(Sy, tittesel anto.target, file selrinto. view, 
X_ Windows.Null Window, 
filt_sel_info, tae wpt.WPT DEFAULT, 
filt _sel_info.panel_id); 
elsif s_equal (value(1l), “Set Alert Parameters”) then null; 
tae _wpt.Wpt_NewPanel 
(, alrtese Lantosearget,waltt sel into.view, 
X Windows.Null_ Window, 
alrt_sel_info, tae_wpt.WPT_DEFAULT, 
alrt_sel_info.panel_id); 
elsif s_equal (value(1), “Set External System Inputs”) then null; 
tae _wpt.Wpt_NewPanel 
(““, eqpt_sel_info.target, eqpt_sel_info.view, 
X Windows.Null Window, eqpt_sel_info, 
tae_wpt.WPT DEFAULT, eqpt_sel_info.panel_id); 
elsif s_equal (value(1), “Set Custom System Configurations”) then 
null; 
tae_wpt.Wpt_NewPanel (““, Sorry_info.target, Sorry_info.view, 
X_Windows.Null_ Window, Sorry info, tae_wpt.WPT_DEFAULT, 
Sorry info.panel_ id); 
end if; 
end menu_defaults button; 
procedure menu_intel_button (info : in tae_wpt.event_context_ptr) is 
value ;: array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 
count : taeint; 
begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 


tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 
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end if; 
if s_equal (value(1), “Use Name for Intel Search”) then null; 
tae_wpt.Wpt_NewPanel (““, Sorry info.target, Sorry info.view, 
X Windows.Null Window, Sorry info, tae_wpt.WPT_DEFAULT, 
Sorry _info.panel_id); 
elsif s_ equal (value(l1), 
“Use Country and Platform Type for Intel Search”) then null; 
tae_wpt.Wpt_NewPanel (““, Sorry info.target, Sorry info.view, 
X_Windows.Null Window, Sorry info, tae_wpt.WPT_ DEFAULT, 
Sorry_info.panel_id); 
elsifesxegual (value(?), 
“Use Comments for Intel Search”) then null; 
tae _wpt.Wpt NewPanel (““, Sorry _info.target, Sorry info.view, 
X_Windows.Null Window, Sorry _ info, tae_wpt.WPT_ DEFAULT, 
Sorry _info.panel_id); 
elsif s_equal (value(1), “Edit Intelligence Database”) then null; 
tae wpt.Wpt NewPanel (““, Sorry info.target, Sorry info.view, 
X_ Windows.Null Window, Sorry info, tae _wpt.WPT DEFAULT, 
Sorry info.panel id); 
end if; 
end. menusimntelsbut tony 
procedure menu_nav_button (info : in tae_wpt.event_context ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 
count : taeint; 
begin 
tae vm.Vm_ Extract Count (info.parm ptr, count); 
if count <= 0 then 
mee; 
else 
tae_vm.Vm_Extract_SVAL (info.parm ptr, 1, value(1l)); 


end if; 
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if s equal (value(1), “Plot a Great Circle Path”) then null; 
tae_wpt.Wpt_NewPanel (““, Sorry _info.target, Sorry _info.view, 
X_Windows.Null Window, Sorry_info, tae_wpt.WPT_DEFAULT, 
Sorry_info.panel id); 
elsif s_equal (value(l), 
“Override Navigation Equipment Inputs”) then null; 
tae_wpt.Wpt_NewPanel (““, Sorry _info.target, Sorry info.view, 
X_ Windows.Null_ Window, Sorry info, tae_wpt.WPT_DEFAULT, 
Sorry_info.panel_id); 
elsif s_equal (value(l), “Plot an Intercept Course”) then 
OWNSHIP := GET _OWNSHIP_TRACK; 
INTERCEPT TRACK _NO := GET HOOKED TRACK NUMBER; 
if INTERCEPT _TRACK_NO /= 9999 then 
INTERCEPT TRACK := GET HOOKED TRACK_OBJECT; 
tae_wpt.Wpt_NewPanel 
(““, int_cept_info.target, int_cept_info.view, 
X_Windows.Null Window, int_cept_info, 
tae_wpt.WPT DEFAULT, int_cept_info.panel_id); 
else null; 
endyrt, 
elsif s equal (value(1), “Plot an Avoidance Course”) then null; 
tae_wpt.Wpt_NewPanel (““, Sorry _info.target, Sorry _info.view, 
X_Windows.Null Window, Sorry info, tae _wpt.WPT_DEFAULT, 
Sorry _info.panel id); 
end if; 
end menu_nav_button; 
procedure menu_lists_button (info : in tae_wpt.event_context_ ptr) is 
value ;: array (1..1) of String (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 
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begin 
tae _vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
mus ds, 
else 
tae vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 


end if; 


if s equal (value(1), “View a List”) then null; 
tae _wpt.Wpt_NewPanel (““, Sorry_info.target, Sorry info.view, 
X_Windows.Null Window, Sorry info, tae_wpt.WPT DEFAULT, 
Sorry info.panel_ id); 
elsif s_equal (value(1), “Edit a List”) then null; 
tae_wpt.Wpt_NewPanel (““, Sorry _info.target, Sorry _info.view, 
X_Windows.Null Window, Sorry info, tae_wpt.WPT_ DEFAULT, 
Sorry_info.panel_ id); 
end if; 


end menu_lists_button; 


procedure menu_coding_button (info : in tae _wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_ Extract Count (info.parm ptr, Count) ; 
if count <= 0 then 
nee, 
else 
tae_vm.Vm_Extract_SVAL (info.parm ptr, 1, value(1)); 


end “1£- 
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if s_ equal (value(1l), “Decode an ATP-1 Signal”) then null; 
tae_wpt.Wpt_NewPanel (““, Sorry info.target, Sorry_info.view, 
X_Windows.Null Window, Sorry info, tae_wpt.WPT_DEFAULT, 
Sorry _info.panel_ id); 
elsif s_equal (value(1l), “Encode an ATP-1 Signal”) then null; 
tae wpt.Wpt_NewPanel ("", Sorry _info.target, Sorry _info.view, 
X Windows.Null_Window, Sorry info, tae_wpt.WPT_DEFAULT, 
Sorry_info.panel_id); 
end if; 


end menu_coding_button; 


procedure Sorry OK Button (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1l)); 
end if; 
tae_wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
X_Windows.Null Window, menu_info, tae_wpt.WPT DEFAULT, 
menu_info.panel_id); 
tae_wpt.Wpt_PanelErase(info.panel_id); 


end Sorry OK Button; 


procedure Sorry _OK_2 (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_ taeconf.STRINGSIZE) ; 


count : taeint; 
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begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 
end if; 
tae wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
X_Windows.Null Window, menu_info, tae_wpt.WPT_DEFAULT, 
menu_info.panel_id); 
tae_wpt.Wpt_PanelErase(info.panel_id); 


end Sorry OK_2; 


procedure trk_sel_NoName01l (info : in tae _wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract Count (info.parm ptr, count); 
if count <= 0 then 
nol, 
else 
tae_vm.Vm_Extract_SVAL (info.parm ptr, 1, value(l)); 
end if; 
tae_wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
X_Windows.Null Window, menu_info, tae_wpt.WPT DEFAULT, 
menu_info.panel id); 
tae_wpt.Wpt_PanelErase(info.panel id); 


end trk_sel_NoName01; 
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procedure trk_sel_trk_sel_brg_ rng 
(info : in tae_wpt.event context ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 

tae_vm.Vm_Extract_Count (info.parm_ptr, count); 

if count <= 0 then 
null; 

else 
tae _vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1l)); 

end if; 

tae_wpt.Wpt_NewPanel (““, sel_brg info.target, sel_brg_info.view, 

X_Windows.Null Window, sel_brg_ info, tae_wpt.WPT DEFAULT, 
sel_brg_info.panel_id); 

tae _wpt.Wpt_PanelErase(info.panel_ id); 


end trk sel trkeselebrg rng; 


procedure trk_sel_trk_sel_screen 
(info : in tae_wpt.event_context_ptr) is 
value ; array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm ptr, count); 
if count <= 0 then 
et BULLS 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1)); 
end if; 


tae_wpt.Wpt_NewPanel ("“, Sorry _info.target, Sorry info.view, 
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X_Windows.Null Window, Sorry info, tae wpt.WPT DEFAULT, 


Sorry info.panel id); 


end trk_sel_ trk_sel_screen; 


procedure Crk seletrkese) .cancel 


(info 
value arrayo()..- 1) cf string =a 
count taeint; 

begin 


in tae wpt.event context ptr). 


..tae_taeconf.STRINGSIZE) ; 


tae_vm.Vm_Extract_Count (info.parm_ptr, count); 


if count <= 0 then 

null; 
else 

tae _vm.Vm_ Extract _SVAL 
end 12; 


GS ww 


tae_wpt.Wpt_NewPanel 


(info.parm ptr, 1, value(1l)); 


, Menu_info.target, menu_info.view, 


X_Windows.Null Window, menu_info, tae_wpt.WPT_DEFAULT, 


menu_info.panel_id); 


tae_wpt.Wpt_PanelErase(info.panel_id); 


end trkmselutrcaselecancel, 


procedure trk_sel_ trk_sel_lat_lon 


(info 
value array (l..1) of Stringed 
count taeint; 

begin 


in tae _wpt.event_context_ptr) is 


..tae_taeconf.STRINGSIZE) ; 


tae_vm.Vm_Extract_Count (info.parm_ptr, count); 


if count <= 0 then 


nin. 
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else 
tae vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1l)); 
end if; 
tae _wpt.Wpt_NewPanel 
(““, glob pos info.target, glob_pos_info.view, 
X_ Windows.Null_ Window, glob _pos_info, tae_wpt.WPT_DEFAULT, 
glob pos_info.panel_id); 
tae wpt.Wpt PanelErase(info.panel_id); 


end trk_sel_trk_sel_lat_lon; 


procedure sel_scrn_sel_scrn_canx 
(info : in tae _wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE); 


count : taeint; 


begin 

tae_vm.Vm_Extract_Count (info.parm_ptr, count); 

if count <= 0 then 
null; 

el'se 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1)); 

end if; 

tae_wpt.Wpt_NewPanel (““, trk_sel_info.target, trk_sel_info.view, 

X_Windows.Null_ Window, trk_sel_info, tae_wpt.WPT_DEFAULT, 
trk_sel_info.panel_id); 

tae_wpt.Wpt_PanelErase(info.panel_ id); 


end sel_scrn_sel_scrn_canx; 


procedure sel_brg_tgt_bearing (info : in tae_wpt.event_ context ptr) is 
value : array (1..1) of taeint; 


count : taeint; 
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begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_IVAL (info.parm_ptr, 1, value(l)); 
Target_Bearing := DEGREES TO RADIANS (FLOAT (value(1l))); 
end if; 


end sel brg tgt. bearing, 


procedure sel_brg tgt_range (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of taeint; 


count : taeint; 


begin 

tae_vm.Vm_Extract_Count (info.parm_ptr, count); 

if count <= 0 then 
null; 

else 
tae_vm.Vm_Extract_IVAL (info.parm ptr, 1, value(1)); 
Target_Range := FLOAT (value(1)); 

end if; 


end sel _brg tgt_range; 


procedure sel_brg_sel_brg canx_l 
(info : in tae_wpt.event_context_ptr) is 
value ;: array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
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tae_vm.Vm_Extract_ Count (info.parm_ptr, count); 

if count <= 0 then 
nue 

else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 

end if; 

tae wpt.Wpt_NewPanel (““, trk_sel_info.target, trk_sel_info.view, 

X_Windows.Null Window, trk_sel_info, tae_wpt.WPT_DEFAULT, 
trk_sel_info.panel_id); 

tae_wpt.Wpt_PanelErase(info.panel_id); 


end sel brg_sel_brg_canx_l; 


procedure sel brg Enter Data (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 


tae_vm.Vm_Extract_SVAL (info.parm_ ptr, 1, value(1l)); 


end if; 
TGT_BRG_RNG := RELATIVE POSITION 
(MAKE POLAR VECTOR 2 
(TARGET_RANGE, TARGET BEARING) ) ; 
TARGET_OBS := MAKE GLOBAL OBSERVATION 


(OWNSHIP, TRK, TGT_BRG RNG); 
INTEGRATION_SYSTEM.CREATE_TRACK (TARGET OBS, Track _pkg.UNKNOWN) ; 
ADD TRACK FLAG := FALSE; 


tae_wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
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X_Windows.Null Window, menu_info, tae_wpt.WPT_DEFAULT, 
menu_info.panel_id); 
tae_wpt.Wpt_PanelErase(info.panel_id); 


end sel_brg Enter Data; 


procedure sel _brg_ sel_brg_canx (info : in tae_wpt.event_context_ptr) is 


value array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


eCounc, -. tacint: 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 

null; 


else 


tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1l)); 


end if; 


tae_wpt.Wpt_NewPanel (““, trk_sel_info.target, trk_sel_info.view, 


X_Windows.Null Window, trk_sel_info, tae_wpt.WPT_DEFAULT, 
trk_sel_info.panel_id); 
tae_wpt.Wpt_PanelErase(info.panel_id); 


end sel_brg_sel_brg_canx; 


procedure glob_pos_long deg (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of taeint; 


count : taeint; 


begin 


tae_vm.Vm_Extract_Count (info.parm ptr, count); 


if count <= 0 then 
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null; 

else 
tae_vm.Vm_Extract_IVAL (info.parm_ptr, 1, value(l)); 
LONG _DEG:= NATURAL (VALUE (1) ); 

end if; 


end glob_pos_long_deg; 


procedure glob pos_long min (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of taeint; 


count : taeint; 


begin 

tae_vm.Vm_Extract_Count (info.parm_ptr, count); 

if count <= 0 then 
null; 

else 
tae_vm.Vm_Extract_IVAL (info.parm_ptr, 1, value(1l)); 
LONG _MIN:= NATURAL (VALUE (1) ); 

end if; 


end glob_pos_long_min; 


procedure glob _pos_long_sec (info : in tae wpt.event_context ptr) is 
value : array (1..1) of taeint; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm ptr, count); 
if count <= 0 then 

null; 


else 
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tae vm.Vm_ Extract _IVAL (info.parm_ ptr, 1, value(l1)); 
LONG _SEC:= NATURAL (VALUE (1) ); 
end if; 


end glob pos_long_ sec; 


procedure glob_pos_long dir (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
nul, 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 
if s equal (value(1),”E”)then 
LONG DIR := E; 


else 


i 
= 


LONG _DIR : 
end if; 
end if; 


end glob pos_long dir; 


procedure glob pos_ lat_deg (info : in tae_wpt.event_context_ptr) is 
value = array (127.1) of taeint; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 


null: 
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else 
tae _vm.Vm_Extract_IVAL (info.parm_ptr, 1, value(l)); 
LAT DEG:= NATURAL (VALUE (1) ); 

end 2£, 


end glob _pos_lat_deg; 


procedure glob pos _lat_min (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of taeint; 


count : taeint; 


begin 

tae_vm.Vm_Extract_Count (info.parm_ptr, count); 

if count <= 0 then 
null; 

else 
tae_vm.Vm_Extract_IVAL (info.parm ptr, 1, value(1l)); 
LAT MIN:= NATURAL (VALUE (1)); 

endive, 


end glob pos lat_min; 


procedure glob_pos_lat_sec (info : in tae _wpt.event_context_ptr) is 
value : array (1..1) of taeint; 


count : taeint; 


begin 
tae vm. Vm_Extract_Count (info.parm_ptrymcount); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_IVAL (info.parm_ptr, 1, value(1)); 


LAT_SEC:= NATURAL (VALUE (1) ); 
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end if; 


end glob_pos_ lat_sec; 


procedure glob pos lat dir (info ; in taé wpt.event  concextiper) as 
value : array (1..1) of string (1..tae taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract SVAL (info.parm_ ptr, 1, value(l)); 
if s_equal (value(1),”N”)then 
LAT DIR := N; 
else 


LAT DIR 


tt 
op) 


end if; 
end if; 


end, globsposm! adtadi 1, 


procedure glob_pos_spacer (info : in tae_wpt.event_context_ptr) is 


value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm ptr, count); 
if count <= 0 then 

Nay; 


else 


tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1l)); 
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end if; 
tae _wpt.Wpt_NewPanel (““, trk_sel_info.target, trk_sel_info.view, 
X_ Windows.Null Window, trk_sel_info, tae _wpt.WPT_ DEFAULT, 
trk_sel_info.panel_id); 
tae _wpt.Wpt_PanelErase(info.panel_id); 


end glob_pos_spacer; 


-- global position Enter Data button 


procedure glob pos Spacer_l (info : in tae_wpt.event_context_ptr) is 
value ; array (1..1) of string (1..tae_ taeconf.STRINGSIZE) ; 
counts. taeint; 
NEW_POSITION >: GLOBAL POSITION; 


NEW_OBSERVATION : GLOBAL OBSERVATION; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 

null, 
else 

tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1)); 

end if; 
if Mod Track Flag then 
NEW_POSITION := MAKE GLOBAL POSITION 
(LAT DIR, LAT DEG, LAT MIN, LAT SEC, 


LONG_DIR, LONG_DEG, LONG_MIN, LONG SEC); 


INTEGRATION_SYSTEM.CHANGE GLOBAL POSITION 
(MOD_TRACK, NEW POSITION) ; 
Modatrack Flag .=:= False; 


Mod Track :=9999; 
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else 
NEW_OBSERVATION.POSITION := MAKE GLOBAL POSITION 
(LAT DIR, LAT_DEG, LAT_MIN, LAT SEC, 
LONG_DIR, LONG_DEG, LONG MIN, LONG SEC); 
NEW OBSERVATION.OBSERVATION TIME := 
ABSOLUTE_TIME_PKG.NOW; 
NEW _OBSERVATION.COURSE_AND SPEED := 
(MAKE CARTESIAN VECTOR 2 (0.0, 0.0)); 
INTEGRATION SYSTEM.CREATE_TRACK 
(NEW_OBSERVATION, TRACK_PKG. UNKNOWN) ; 
AadeTrack blagy. = aloe, 


end if; 


tae_wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
X_Windows.Null Window, menu_info, tae_wpt.WPT_DEFAULT, 
menu_info.panel_id); 

tae _wpt.Wpt_PanelErase(info.panel_ id); 


end glob _pos_ Spacer 1; 


procedure exit _ok_exit_continue (info : in tae_wpt.event context _ptr) is 
value i:gamnay (1..1),efeetring (1. ae caccont STRINGSIZE); 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ ptr, 1, value(1l)); 
end if; 


end exit_ok_exit_continue; 
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procedure exit_ok_exit_cancel (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae taeconf.STRINGSIZE) ; 


count : taeint; 


begin 

tae_vm.Vm_Extract_Count (info.parm_ptr, count); 

if count <= 0 then 
null; 

else 
tae vm.Vm_Extract_SVAL (info.parm ptr, 1, value(l)); 

end if; 

tae _wpt.Wpt NewPanel (““, menu_info.target, menu_info.view, 
X_Windows.Null Window, menu_info, tae_wpt.WPT_DEFAULT, 
menu_info.panel_ id); 

tae_wpt.Wpt PanelErase(info.panel_ id); 


end exit _ok_exit_cancel; 


procedure trk_mod_trk_identity (info : in tae_wpt.event_context_ptr) 1s 
value = array (1..1) of string (1..tae taeconft.STRINGSIZE) ; 
COUNG. staeiht, 


TRACK (1D. VI DENTITY (Puen, 


begin 

tae_vm.Vm_Extract_Count (info.parm_ptr, count); 

if count <= 0 then 
nul, 

else 
tae_vm.Vm_Extract_SVAL (info.parm ptr, 1, value(l1)); 
if s equal (value(1l), “Friendly”) then 


TRACK LDS: = PRLENDEY, 
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elsif s equal (value(1),. Host1te 4) senen 
TRACK_ID := HOSTILE; 
elsif s_equal (value(1), “Neutral”) then 
TRACK ID := NEUTRAL; 
elsif s_equal (value(1), “Unknown”) then 
TRACK_ID := TRACK PKG. UNKNOWN; 
end if; 
INTEGRATION SYSTEM.SET TRACK_IDENTITY (MOD TRACK, TRACK_ID); 
end if; 


end trk_mod_trk_identity; 


procedure trk_mod_trk_control (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae taeconf.STRINGSIZE) ; 
count ; taeint; 


TRACK _ CONTROL: CONTROL TYPE; 


begin 
tae_vm.Vm_Extract Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l1l)); 
if s_equal (value(1), “LINK”) then 
TRACK CONTROL := LINK; 
else 
TRACK CONTROL := LOCAL; 
end if; 
end if; 
INTEGRATION _SYSTEM.SET_CONTROL (MOD_TRACK, TRACK CONTROL) ; 


end trk_mod_trk_control; 
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procedure trk_mod_trk_point_type 
(info 
Value: array) (lwel) of strang (1 


count : taeint; 


begin 


i tae wpt-event context ptr) 1s 


..tae_taeconf.STRINGSIZE) ; 


tae_vm.Vm_Extract_Count (info.parm_ptr, count); 


if count <= 0 then 
null; 


else 


tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 


end if; 


end trk_mod_trk_point_type; 


procedure trk_mod_trk_category (info 
value : array (1..1) of string (1 
count : taeint; 


TRACK CAT: TRACK CATEGORY; 


begin 


in tae _wpt.event_context_ptr) is 


..tae_taeconf.STRINGSIZE) ; 


tae_vm.Vm_Extract_Count (info.parm_ptr, count); 


if count <= 0 then 
null; 


else 


tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l1l)); 


if s equal (value(1), “Unknown”) then 


TRACK_CAT := TRACK _PKG.UNKNOWN; 


elsif s_ equal (value(1), “Surface Platform”) then 


TRACK CAT := SURFACE PLATFORM; 


elsif s_ equal (value(1), “SubSurface Platform”) then 


TRACK _CAT := SUBSURFACE PLATFORM; 
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elsif s_equal (value(1l), “Air Platform”) then 
TRACK_CAT := AIR PLATFORM; 
elsif s_equal (value(1), “Man_In Water”) then 
TRACK_CAT := MAN IN WATER; 
elsif s equal (value(1), “Special Point”) then 
TRACK CAT := SPECIAL _POINT; 
end if; 
end if; 
INTEGRATION _SYSTEM.CHANGE TRACK CATEGORY (MOD_TRACK, TRACK_CAT) ; 


end trk_mod_trk_category; 


procedure trk_mod_trk_position (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae vm. Vm_ Extract Count (info -parm per, coune, 
if count <= 0 then 

null; 
else 

tae_vm.Vm_Extract_SVAL (info.parm ptr, 1, value(l1l)); 
end if; 
tae_wpt .Wpt_NewPanel 

(““, glob _pos_info.target, glob _pos_info.view, 
X_Windows.Null Window, glob_pos_info, tae _wpt.WPT_DEFAULT, 
glob_pos_info.panel id); 


tae_wpt.Wpt_PanelErase(trk_mod_info.panel_id); 


end trk_mod_trk_position; 
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procedure trk_mod_ trk_amp_ info (info : in tae_wpt.event_context_ptr) is 
Value <- arnay (1.,.1),0of string ~@2 56); 
count : taeint; 
TRACK_AMP : STRING (1..56); 
begin 
tae _vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae _vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 
TRACK_AMP := VALUE(1); 
end if; 
INTEGRATION _SYSTEM.SET_AMPL INFO (MOD_TRACK, TRACK_AMP) ; 


end trk_mod_trk_amp_info; 


procedure trk_mod_trk_name (info : in tae_wpt.event_context_ptr) is 
value: anray(1..1) of@string (le.32)- 
COUNE eo taei nit, 


TRACK_NAME : STRING (1..32); 


begin 

tae_vm.Vm_Extract_Count (info.parm ptr, count); 

if count <= 0 then 
null; 

else 
tae_vm.Vm_Extract_SVAL (info.parm ptr, 1, value(1l)); 
TRACK_NAME := VALUE(1); 

end if; 

INTEGRATION _SYSTEM.SET VESSEL NAME (MOD_TRACK, TRACK_NAME) ; 


end trk_mod_trk_name; 
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procedure trk_mod trk_course (info : in tae_wpt.event_context ptr) is 
value : array (1..1) of taeint; 
count : taeint; 


TARGET CSE : ANGLE _PKG.ANGLE; 


begin 
tae_vm.Vm_ Extract Count (info.parm_ptr, count); 
if count <= 0 then 
nud, 
else 
tae_vm.Vm_Extract_IVAL (info.parm_ptr, 1, value(1l)); 
TARGET CSE := DEGREES TO RADIANS (FLOAT (VALUE (1))); 
end if; 
INTEGRATION _SYSTEM.CHANGE_ COURSE (MOD_TRACK, TARGET_CSE); 


end trk_mod_trk_course; 


procedure trk_mod_trk_speed (info : in tae wpt.event_context_ptr) is 
value : array (1..1) of taeint; 
count ;: taeint; 


TARGET_SPD : SPEED; 


begin 

tae_vm.Vm_Extract_Count (info.parm_ptr, count); 

if count <= 0 then 
null; 

else 
tae_vm.Vm_Extract_IVAL (info.parm_ptr, 1, value(l1l)); 
TARGET_SPD := MAKE SPEED (FLOAT (VALUE (1))); 

end if; 

INTEGRATION _SYSTEM.CHANGE SPEED (MOD TRACK, TARGET SPD); 


end trk_mod_trk_speed; 
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procedure trk_mod trk_height (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of taeint; 
count : taeint; 


TARGET HEIGHT : DISTANCE; 


begin 

tae_vm.Vm_Extract_Count (info.parm_ptr, count); 

if count <= 0 then 
null; 

else 
tae_vm.Vm_Extract_IVAL (info.parm_ptr, 1, value(l)); 
TARGET HEIGHT := (FLOAT (VALUE (1))/3.0); 

end if; 

INTEGRATION SYSTEM.SET ALTITUDE (MOD TRACK, TARGET HEIGHT) ; 


end trk_mod_trk_height; 


procedure trk_mod_trk_ mod enter (info : in tae wpt.event_context ptr) is 
VALUCH dordyeceee. jor String Kbe.tac taeécont .STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1l)); 
end if; 
MOD_TRACK_FLAG := FALSE; 
MOD_TRACK := 9999; 


tae_wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
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X_W. ndows.Null Window, menu_info, tae_wpt.WPT_ DEFAULT, 


menu_info.panel_id); 


tae wpt.Wpt PanelErase (info.panel_id); 


end trk_mod_trk_mod_enter; 


procedure trk_mod_ trk_plat_class 
(info 
value : array (1..1) of string (1 
count : taeint; 


TRACK CLASS : STRING (1..32); 


begin 


in tae_wpt.event_context_ptr) is 


pe 4) 


tae_vm.Vm_Extract_Count (info.parm_ptr, count); 


if count <= 0 then 
null; 


else 


tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 


TRACK_CLASS := VALUE(1); 


end if; 


INTEGRATION_SYSTEM.SET PLATFORM CLASS (MOD_TRACK, TRACK CLASS); 


end trk mod _trk plat class; 


procedure confirm_conf_continue (info 
value : array (1..1) of string (1 
count =Staeint; 
begin 
tae_vm.Vm_Extract_ Count (info 


if count <= 0 then 


in tae_wpt.event_context_ptr) is 


..tae_taeconf.STRINGSIZE) ; 


._parm_ptr, count); 


INTEGRATION SYSTEM.DELETE TRACK AND SEND TO HISTORY 


MOD_TRACK_FLAG := FALSE; 


(DELETE TRACK) ; 
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MOD TRACK := 9999; 
end if; 


tae _wpt.Wpt_PanelErase(info.panel_id); 


end confirm _conf_continue; 


procedure confirm_conf_cancel (info : in tae _wpt.event_context_ptr) is 


value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 

tae_vm.Vm_Extract_Count (info.parm_ptr, count); 

if count <= 0 then 
null; 

else 
tae _vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l1)); 

end if; 

MOD_TRACK_FLAG := FALSE; 

MOD_TRACK := 9999; 

tae_wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
X_Windows.Null_ Window, menu_info, tae_wpt.WPT_DEFAULT, 
menu_info.panel_id); 


tae_wpt.Wpt_PanelErase(info.panel_ id); 


end confirm_conf cancel; 


procedure alrt_sel_cpa_alrt_range 


(info : in tae_wpt.event_context_ptr) is 


value : array (1..1) of taeint; 


count : taeint; 


begin 


tae_vm.Vm_Extract_Count (info.parm_ptr, count); 


if count <= 0 then 
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AU, 
else 

tae_vm.Vm_Extract_IVAL (info.parm_ptr, 1, value(l)); 
end if; 
Alert Range := float (value(1l)); 


end alrt_sel_cpa_alrt_range; 


procedure alrt _sel_alrt_canx 1 (info : in tae _wpt-event contextyptr)igas 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 

tae vm.Vm_Extract Count (info.parm_ptr, count); 

if count <= 0 then 
null; 

else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1l)); 

end if; 

tae _wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
X_Windows.Null Window, menu_info, tae_wpt.WPT_DEFAULT, 
menu_info.panel_id); 

tae _wpt.Wpt_PanelErase(info.panel id); 


end alrtgsel abeuegcanxai 


procedure alrt_sel_enter_data (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count: staecant: 


begin 
tae_vm.Vm_Extract_Count (info.parm ptr, count); 


1£ count <= 0 then 
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Bextmoopue Jane (none); 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1)); 
end if; 
SET _CPA_ALERT_RANGE (Alert Range); 
tae wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
X Windows.Null_ Window, menu_info, tae_wpt.WPT_DEFAULT, 
menu_info.panel_ id); 
tae wpt.Wpt_PanelErase(info.panel_id); 


end alrt sel enter data; 


procedure alrt_sel _alrt_canx_2 (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l1l)); 
end ere; 
tae_wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
X_Windows.Null_ Window, menu_info, tae_wpt.WPT_DEFAULT, 
menu_info.panel id); 
tae_wpt.Wpt_PanelErase(info.panel id); 


end salrteselealrencanxid,; 


procedure eqgpt_sel_gps_sel (info : in tae _wpt.event context ptr) is 
value : array (1..1) of string (1..tae_ taeconf.STRINGSIZE) ; 


count : taeint; 
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begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 
UEENCe GP Sao voeunen 
GPS _SYS:= True; 
else 
GPS SYS := False; 
end if; 
end if; 


end eqpt_sel_gps_ sel; 


procedure eqpt sel radar sel (info ; in tae wpt.event contexeapr rj 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 
if not RADAR_SYS then 
RADAR_SYS:= True; 
else 
RADAR_SYS := False; 


end if; 
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end if; 


end eqpt sel radar sel; 


procedure eqpt sel_link_sel (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
nol: 
else 
tae_vm.Vm_Extract SVAL (info.parm_ ptr, 1, value(l1)); 


if not LINK_SYS then 


EINK SYS (eo true; 
else 
PiNK SYS := False; 
endijaf; 
end if; 


end eqpt selmmink sel? 


procedure eqpt_sel_gyro_sel (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 


tae_vm.Vm_Extract_SVAL (info.parm ptr, 1, value(l)); 
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if not GYRO SYS then 


GYROS YS.):— SErue, 
else 
GYRO SYS := False; 
end if; 
end if; 


end eqpt_ sel gyro sel; 


procedure eqpt_sel_fath_sel (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 
if not FATH_SYS then 
PATH OS =e lrue, 
else 
FATH_ SYS := False; 


end if; 


end if; 


end €qpt seletatnese, 
procedure eqpt_sel_pit_sel (info : in tae _wpt.event context _ptr) is 


value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 
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begin 
tae _vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
nul i; 
else 
tae vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l1)); 


tienot PIT sys then 


PLEsoro ..= TEUG, 
else 
PIT SYS := False; 
end if; 
endif; 


end eqpt_sel_pit_sel; 


procedure eqpt_sel_enter data (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae _taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
nu, 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 
end if; 
INTEGRATION SYSTEM.GET SENSOR_STATUS ( LINK, EQPT STATUS ); 
if EQPT STATUS = DOWN and LINK_SYS = TRUE then 
INTEGRATION SYSTEM.SET SENSOR STATUS ( LINK, UP ); 
elsif EQPT STATUS = UP and LINK SYS = FALSE then 
INTEGRATION SYSTEM.SET SENSOR STATUS ( LINK, DOWN ); 


end if; 
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INTEGRATION _SYSTEM.GET SENSOR_STATUS ( GPS, EQPT STATUS ); 
if EQPT STATUS = DOWN and GPS SYS = TRUE then 
INTEGRATION SYSTEM.SET SENSOR_STATUS ( GPS, UP ); 
elsif EQPT STATUS = UP and GPS SYS = FALSE then 
INTEGRATION SYSTEM.SET SENSOR_STATUS ( GPS, DOWN ); 
end if; 
INTEGRATION SYSTEM.GET SENSOR_STATUS ( RADAR, EQPT STATUS ); 
if EQPT STATUS = DOWN and RADAR_SYS = TRUE then 
INTEGRATION _SYSTEM.SET_SENSOR_STATUS ( RADAR, UP ); 
elsif EQPT STATUS = UP and RADAR_SYS = FALSE then 
INTEGRATION SYSTEM.SET SENSOR_STATUS ( RADAR, DOWN ); 
end if; 
INTEGRATION SYSTEM.GET_SENSOR_STATUS ( PITSWORD, EQPT STATUS ); 
if EQPT STATUS = DOWN and PIT _SYS = TRUE then 
INTEGRATION SYSTEM.SET_ SENSOR_STATUS ( PITSWORD, UP ); 
elsif EQPT STATUS = UP and PIT SYS = FALSE then 
INTEGRATION SYSTEM.SET_SENSOR_STATUS ( PITSWORD, DOWN ); 
end if; 
INTEGRATION _SYSTEM.GET_SENSOR_STATUS ( GYRO, EQPT STATUS ); 
if EQPT_STATUS = DOWN and GYRO SYS = TRUE then 
INTEGRATION SYSTEM.SET SENSOR_STATUS ( GYRO, UP ); 
elsif EQPT_ STATUS = UP and GYRO SYS = FALSE then 
INTEGRATION SYSTEM.SET SENSOR_STATUS ( GYRO, DOWN ); 
end if; 
INTEGRATION SYSTEM.GET_SENSOR_STATUS ( FATHOMETER, EQPT STATUS ); 
if EQPT_STATUS = DOWN and FATH_SYS = TRUE then 
INTEGRATION _SYSTEM.SET SENSOR_STATUS ( FATHOMETER, UP ); 
elsif EQPT_STATUS = UP and FATH SYS — FALSE then 
INTEGRATION SYSTEM.SET SENSOR_STATUS ( FATHOMETER, DOWN ); 
end if; 


TEST SYSTEM STATUS; 
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tae wpt.Wpt NewPanel (““, menu_info.target, menu_info.view, 
X Windows.Null Window, menu_info, tae_wpt.WPT_ DEFAULT, 
menu_info.panel_id); 

tae wpt.Wpt PanelErase(info.panel_ id); 


end eqpt_sel_enter data; 


procedure title exit system (info : in tae_wpt.event_context_ptr) is 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
mutt; 

end if; 

tae _wpt.Wpt NewPanel (““, exit _ok_info.target, exit_ok_info.view, 
X_Windows.Null Window, exit _ok_info, tae_wpt.WPT_DEFAULT, 
exit_ok_info.panel_ id); 


end title exit_system; 


procedure filt_sel_canx_filter (info : in tae _wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
ese 
tae_vm.Vm_Extract SVAL (info.parm ptr, 1, value(l1l)); 
end 15; 


tae_wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
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X_Windows.Null Window, menu_info, tae_wpt.WPT DEFAULT, 
menu_info.panel_id); 
tae wpt.Wpt PanelErase(info.panel id); 


end fi1€ sel cank frites, 


procedure filt_sel_type_select (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
nual; 
elise 
tae_vm.Vm_Extract_SVAL (info.parm_ ptr, 1, value(l)); 
end if; 
if s_equal (value(1), “Based on Range/Height”) then null; 
FC:= DISTANCE FILTER; 
tae_wpt.Wpt_NewPanel 
(““, rvng_filt_info.target, rng_filt_info.view, 
X_Windows.Null Window, rng_filt_info, tae_wpt.WPT_DEFAULT, 
rng_filt _info.panel_ id); 
tae _wpt.Wpt PanelErase(info.panel id); 
elsif s equal (value(l1), “Based on Track Category”) then null; 
tae wpt.Wpt_NewPanel 
(“", cat_filt_info.target, cat filtewinro.view, 
X_Windows.Null Window, cat_filt_info, tae_wpt.WPT DEFAULT, 
cat_filt_info.panel_ id); 
tae_wpt.Wpt_PanelErase(info.panel id); 
elsif s_equal (value(1), “Based on Platform Identity”) then null; 


tae_wpt.Wpt_NewPanel 
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(pet ontil bento. Canget, a 1d. tilt2intoview, 
X_Windows.Null_ Window, id filt_info, tae _wpt.WPT_DEFAULT, 
id filt_info.panel_id); 
tae wpt.Wpt_PanelErase(info.panel_ id); 
end if; 


end filt sel type select; 


procedure filt_sel_add_ filter (info : in tae_wpt.event_context_ptr) is 


Value =< array (1..1) of string (1..tae taecont.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 
end 1; 
INTEGRATION SYSTEM.ADD AND FILTER TO FILTER; 
SET_FILTER_STATUS (“ON”); 


end filt_sel_ add filter; 


procedure filt_sel_ filter complete 
(info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 


null; 
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else 
tae _vm.Vm_Extract_SVAL (info.parm_ ptr, 1, value(l)); 

end if; 

INTEGRATION SYSTEM.WRITE_FILTER; 

tae_wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
X Windows.Null Window, menu_info, tae_wpt.WPT_DEFAULT, 
menu_info.panel_ id); 

tae_wpt.Wpt_PanelErase (info.panel_id); 


end filt_sel_ filter complete; 


procedure rng filt rng type (info = in tae wpt-event context ptr). is 
value : array (1..1) of String (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract Count (info.parm ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 


if s equal (value(1), “Height”) then 


DA := ALTITUDE; 
else 
DA := RANGE FROM REFERENCE TRACK; 
end if; 
end if; 


end rng_filt_rng _ type; 


procedure rng_filt_rng_limit (info : in tae _wpt.event_context ptr) is 
value : array (1..1) of taeint; 


count : taeint; 
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begin 

tae_vm.Vm_Extract_Count (info.parm_ptr, count); 

if count <= 0 then 
null; 

else 
tae _vm.Vm Extract _IVAL (info.parm_ptr, 1, value(1l)); 
RG := FLOAT (VALUE (1) ); 

end if; 


end eng faltercng limit; 


procedure rng _ filt_hgt_limit (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of taeint; 


count : taeint; 


begin 

tae_vm.Vm_Extract_Count (info.parm_ptr, count); 

if count <= 0 then 
nul: 

else 
tae_vm.Vm_Extract_IVAL (info.parm_ptr, 1, value(l1l)); 
RG:= FLOAT (VALUE (1) /3); 

Gnade it, 


endarng feleehngt limit; 


procedure rng_filt_operator (info : in tae_wpt.event_context ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


GOunEs Cacint;: 


begin 


taeavmevMEGxt Lact Count (2nro.parm ptr, Count) ; 
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if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l1l)); 


if s equal (value(1), “>=") then 


RID := GREATER_OR_EQUAL; 
else 
RID := LESS_OR_EQUAL; 
end if; 
end if; 


end rng filt_operator; 


procedure rng filt_ complete (info : in tae _wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ ptr, 1, value(l)); 
end if; 
INTEGRATION SYSTEM.MAKE DISTANCE ATOMIC FILTER (DA, RG, 0, RID); 
tae wpt.Wpt_ NewPanel 
(““, filt_sel_info.target, filt_sel_info.view, 
X_Windows.Null Window, filt_sel_info, tae _wpt.WPT DEFAULT, 
filt_sel_info.panel_ id); 
tae_wpt .Wpt_PanelErase(info.panel_id); 


end rng_filt_complete; 
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procedure rng_filt_cancel (info : in tae_wpt.event_context_ptr) 1s 
value : array (1..1) of string (1..tae taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
nul; 
else 
tae_vm.Vm Extract_SVAL (info.parm_ptr, 1, value(1l)); 
end if; 
tae _wpt.Wpt_NewPanel 
(St beesel into. target, filt sel anto- view, 
X Windows.Null Window, filt_sel_info, tae_wpt.WPT DEFAULT, 
filt_sel_info.panel_id); 
tae _wpt.Wpt_PanelErase(info.panel_ id); 


end rng_filt_cancel; 


procedure cat_frlt cancel (2nfo sein tae wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 
encah; 
tae _wpt.Wpt_NewPanel 


(““, filt_sel_info.target, filt_sel_info.view, 
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X_Windows.Null Window, filt_sel_info, tae_wpt.WPT_ DEFAULT, 
filt_sel_info.panel_ id); 
tae wpt.Wpt_PanelErase(info.panel_id); 


end cat_filt_cancel; 


procedure cat_filt_cat_type (info: in tae _wpt event context ptr) is 
value : array (1-..1) of string (1-. tae taccont “SeemicsiZE)- 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae _vm.Vm_Extract SVAL (info.parm_ ptr, 1, value(1)); 
end if; 
if s_equal (value(1), “Unknown”) then 
T CAT := TRACK PKG. UNKNOWN; 
elsif s_equal (value(1), “Surface Platform”) then 
T CAT := SURFACE PLATFORM; 
elsif s_ equal (value(1), “Subsurface Platform”) then 
T CAT := SUBSURFACE_PLATFORM; 
elsif s_equal (value(1), “Air Platform”) then 
T CAT := AIR_PLATFORM; 
elsif s_equal (value(1l), “Special Point”) then 
T_ CAT := SPECIAL POINT; 
elsif s_equal (value(1), “Man in Water”) then 
T CAT := MAN_IN WATER; 
end if; 


end cat_filt_cat_type; 
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procedure cat filt_operator (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae _taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null, 
else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l1l)); 
endes; 
if s_ equal (value(1), “Equal”) then 
EQ := EQUAL; 
INTEGRATION SYSTEM.MAKE TRACK CATEGORY ATOMIC FILTER 
(T CAT, EQ); 
tae_wpt.Wpt_NewPanel 
(77) £1 ese) intO.target,, £iditesel into.view, 
X_Windows.Null Window, filt_sel_info, tae_wpt.WPT_DEFAULT, 
filt sel_info.panel id); 
tae_wpt.Wpt_PanelErase(info.panel_ id); 
elsif s_equal (value(1l), “Not Equal”) then 
EQ := NOT_EQUAL; 
INTEGRATION _SYSTEM.MAKE TRACK _CATEGORY_ATOMIC_ FILTER 
(T_CAT, EQ); 
tae _wpt.Wpt_NewPanel 
(““, filt_sel_info.target, filt_sel_info.view, 
X_Windows.Null Window, filt_sel_info, tae_wpt.WPT_DEFAULT, 
filt sel info.panel id); 
tae_wpt.Wpt_PanelErase(info.panel_ id); 
end if; 


end cat_filt_operator; 
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procedure id filt_id type (info : in tae_wpt.event_context ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_ Extract _Count (info.parm ptr, count); 
if count <= 0 then 
null; 
else 
tae vm.Vm_ Extract SVAL (info.parm_ptr, 1, value(1l)); 
end if; 
if s equal (value(1), “Unknown”) then 
PID := TRACK PKG. UNKNOWN; 
elsif s_equal (value(1), “Friendly”) then 
PrDpe >= FREENDLY; 
elsif s_equal (value(1), “Hostile”) then 
PID <= HOSTILE; 
elsif s_equal (value(1l), “Neutral”) then 
PID” ~= NEUTRAL, 
end if; 


end 1d f2 tad type, 


procedure id _filt_cancel (info : in tae wpt.event_ context ptr) is 
value : array (1..1) of string (1..tae taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 


null; 
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else 
tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(1l)); 

end if; 

tae wpt.Wpt_NewPanel 

(““, filt_sel_info.target, filt sel _info.view, 

X_Windows.Null Window, filt_sel_info, tae_wpt.WPT_DEFAULT, 
filt_sel_info.panel_id); 

tae _wpt.Wpt_PanelErase(info.panel_id); 


end id _filt_cancel; 


Procedure 1a ti1lt Operator (info; in taeé_wpt.event context ptr) is 


value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 
null; 
else 
tae _vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 
end if; 
if s_equal (value(1), “Equal”) then 
EQ := EQUAL; 
INTEGRATION _SYSTEM.MAKE PLATFORM IDENTITY_ATOMIC FILTER 
(PID, EQ); 
tae wpt.Wpt_NewPanel 
(““, f£ilt_sel_info.target, filt_sel_ info.view, 
X_Windows.Null Window, filt_sel_info, tae_wpt.WPT_DEFAULT, 
filt sel _ info.panel id); 
tae_wpt.Wpt_PanelErase(info.panel_ id); 


elsif s_equal (value(1), “Not Equal”) then 
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EQ := NOT EQUAL; 


INTEGRATION SYSTEM.MAKE PLATFORM IDENTITY ATOMIC FILTER 


tae_wpt.Wpt_NewPanel 


(PID, EQ); 


(““, filt sel info.target,. taltiseliinto- view, 


X_ Windows.Null Window, 


filt_sel_info, tae_wpt.WPT_ DEFAULT, 


filt _sel_info.panel_id); 


tae _wpt.Wpt_PanelErase(info.panel_id); 


end if; 


end 2d) ta ttseperatorn, 


procedure int_cept_method (info : in tae_wpt.event_context_ptr) is 


value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 


tae_vm.Vm_Extract_Count (info.parm_ptr, count); 


if count <= 0 then 
null; 


else 


tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 


if s_equal (value(1l), “Time to Station”) then 


INTERCEPT BY SPEED == 
INTERCEPT ORY. tio. 
elsif s_equal (value(l1l), 
INTERCEPT BY five = 
INTERCEPT_BY_SPEED := 
end. if; 
enduaL. 


end int_cept_method; 


FALSE; 
TRUE; 
“Speed to Station”) then 
FALSE; 


TRUE; 
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procedure int_cept_time (info : in tae_wpt.event context ptr) is 
value : array (1..1) of taeint; 


count ;: taeint; 


begin 

tae_vm.Vm_Extract_Count (info.parm_ptr, count); 

if count <= 0 then 
null; 

else 
tae_vm.Vm_Extract_IVAL (info.parm ptr, 1, value(1)); 
STALLION TIME = — NATURAL (VALUE (1) ); 

end if; 


end int _cept_time; 


procedure int cept speed (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of taeint; 


count : taeint; 


begin 

tae_vm.Vm_Extract_ Count (info.parm_ptr, count); 

1f count <= 0 then 
null; 

else 
tae_vm.Vm_Extract_IVAL (info.parm ptr, 1, value(l)); 
STATION SPEED := FLOAT (VALUE (1) ); 

end if; 


end int_cept_speed; 


procedure int_cept_compute (info : in tae_wpt.event_context_ptr) is 


value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 
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count : taeint; 


INTERCEPT RECORD ; INTERCEPT TYPE, 
INTERCEPT SPEED ; SPEED; 
INTERCEPT TIME >: ABSOLUTE TIME; 
INTERCEPT COURSE : INTEGER; 
INTERCEPT VEL : INTEGER; 
INTERCEPT HOURS : NATURAL; 
INTERCEPT MINS : NATURAL; 
begin 


tae_vm.Vm_Extract_Count (info.parm_ptr, count); 
if count <= 0 then 

null; 
else 


tae_vm.Vm_Extract_SVAL (info.parm_ptr, 1, value(l)); 


end if; 
INTERCEPT SPEED := MAKE SPEED (STATION SPEED); 
INTERCEPT TIME := NOW + RELATIVE TIME (FLOAT (STATION_TIME * 60)0— 


if INTERCEPT BY SPEED then 
INTERCEPT_RECORD := INTERCEPT(INTERCEPT TRACK, OWNSHIP, 
RELATIVE POSITION 
(MAKE_CARTESIAN VECTOR_2 (0.0, 0.0)), 


INTERCEPT SPEED) ; 


else 
INTERCEPT RECORD := INTERCEPT 
(INTERCEPT_TRACK, OWNSHIP, RELATIVE_POSITION 
(MAKE_CARTESIAN_VECTOR_2 (0.0, 0.0)), 
INTERCEPT TIME) ; 
end if; 
INTERCEPT_BY_ SPEED := FALSE; 
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TRUE; 


INTERCEPT BY TIME 


INTERCEPT COURSE INTEGER (RADIANS TO DEGREES (COURSE 
(INTERCEPT RECORD.INTERCEPT CRS AND SPD))); 
INTERCEPT VEL := INTEGER(SPEED IN KNOTS (SPD 
(INTERCEPT RECORD.INTERCEPT CRS AND SPD))); 
INTERCEPT_HOURS := HOURS (TIME_OF_DAY 
(INTERCEPT RECORD.TIME TO INTERCEPT) ); 
INTERCEPT MINS := MINUTES (TIME_OF_DAY 
(INTERCEPT RECORD.TIME_ TO INTERCEPT) ); 
WRITE INTERCEPT RECOMMENDATION 
(NATURAL! IMAGE (INTERCEPT TRACK NO), 
INTEGER’ IMAGE (INTERCEPT COURSE), 
INTEGER’ IMAGE (INTERCEPT VEL), 


NATURAL’ IMAGE (INTERCEPT HOURS), 


NATURAL’ IMAGE (INTERCEPT MINS) ); 


tae_wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
X_Windows.Null Window, menu_info, tae_wpt.WPT_ DEFAULT, 
menu_info.panel_ id); 

tae_wpt.Wpt PanelErase(info.panel id); 


end int_cept_ compute; 


procedure int_cept_cancel (info : in tae_wpt.event_context_ptr) is 
value : array (1..1) of string (1..tae_taeconf.STRINGSIZE) ; 


count : taeint; 


begin 
tae_vm.Vm_Extract_ Count (info.parm_ptr, count); 
if count <= 0 then 

null; 


else 
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tae_vm.Vm_Extract_SVAL (info.parm ptr, 1, value(1)); 
end if; 
tae_wpt.Wpt_NewPanel (““, menu_info.target, menu_info.view, 
X_Windows.Null Window, menu_info, tae_wpt.WPT DEFAULT, 
menu_info.panel_id); 
tae wpt.Wpt_PanelErase (info.panel_id); 
end int_cept_cancel; 


end menu_support; 


begin 
f force _lower (FALSE); -- permit upper/lowercase file names 
tae wpt.Wpt_Init (““,theDisplay) ; 


tae _wpt.Wpt_NewEvent (wptEvent); 


initializePanels (“menu.res”); -- single call 
Open_Tacplot_ Display; 

Open _Track_Info Display; 

Open Alerts Display; 

Open_Recommendations_ Display; 

Open_Intel_ Display; 


Open _System_Status Display; 


OWN OBS.OBSERVATION TIME := NOW; 
OWN_OBS.POSITION := MAKE GLOBAL POSITION 


(N, L5S% 44, 0, E, 65, 23; 0); 


OWN_CRS DEGREES TO RADIANS (90.0); 
OWN_SPD := MAKE SPEED (20.0); 
OWN_OBS.COURSE_AND SPEED := MAKE VELOCITY ( OWN_SPD, OWN CRS ); 


INTEGRATION SYSTEM.CREATE TRACK ( OWN_OBS, SURFACE PLATFORM ); 
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OWN_OBS.OBSERVATION TIME := NOW; 
OWN _OBS.POSITION := MAKE GLOBAL POSITION 


(NU 15), 467000, -E,: 65,- 20, 0); 


OWN_CRS DEGREES TO RADIANS (45.0); 
OWN SPD := MAKE SPEED (600.0); 
OWN_OBS.COURSE_AND_SPEED := MAKE VELOCITY ( OWN_SPD, OWN_CRS ); 


INTEGRATION SYSTEM.CREATE TRACK ( OWN_OBS, AIR_PLATFORM ); 


OWN_OBS.OBSERVATION TIME := NOW; 
OWN_OBS.POSITION := MAKE _GLOBAL_POSITION 


(N, LOY 40, 0; E, 65, 26; 0); 


OWN_CRS := DEGREES TO RADIANS (235.0); 
OWN_SPD := MAKE SPEED (20.0); 
OWN_OBS.COURSE AND SPEED := MAKE VELOCITY ( OWN SPD, OWN _CRS ); 


INTEGRATION SYSTEM.CREATE_TRACK ( OWN_OBS, SURFACE PLATFORM ); 


OWN_OBS.OBSERVATION_TIME := NOW; 
OWN_OBS.POSITION := MAKE GLOBAL POSITION 


(Np 15;-35,.0," EB; 62, 17, 0); 


OWN_CRS DEGREES_TO RADIANS (170.0); 
OWN_SPD := MAKE SPEED (20.0); 
OWN_OBS.COURSE_AND_SPEED := MAKE VELOCITY ( OWN SPD, OWN CRS ); 


INTEGRATION_SYSTEM.CREATE TRACK ( OWN_OBS, SURFACE_PLATFORM ); 


INTEGRATION SYSTEM.FILL TACPLOT; 


DISPLAY_TACPLOT; 
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loop 
if X Pending (Tacplot_Display) > 0 then 
X_Lib.Events.X_Next_Event 
(Tacplot_ Display, Tacplot_X_ Event); 
case Tacplot_X Event.Kind is 
when Expose => 
if (Tacplot X Event.Expose_Notify.Count = 0) then 
INTEGRATION SYSTEM. FILL_TACPLOT; 
DISPLAY_TACPLOT; 
end if; 
when Button_Press = 
Process_Hook_ Position (Tacplot_X_Event.Button.X, 
Tacplot_X Event.Button.yY); 
INTEGRATION SYSTEM.FILL TACPLOT; 
DISPLAY TACPLOT; 
when others => null; 
end case; 


end if; 


if X_Pending (Track_Info Display) > 0 then 
X_Lib.Events.X Next Event 
(Track _Info Display, Track_Info X Event); 
case Track_Info_X_Event.Kind is 
when others => null; 
end case; 


end if; 


if X_ Pending (Alerts Display) > 0 then 
X_Lib.Events.X_Next_Event (Alerts Display, Alerts X Event); 
case Alerts X Event.Kind is 


when others => null; 
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end case; 


end if; 


if X_ Pending (Recommendations Display) > 0 then 
X_ Lib.Events.X_Next_Event (Recommendations Display, 
Recommendations _X Event); 
case Recommendations_X Event.Kind is 
when button press => X_Clear Window 


(Recommendations Display, Recommendations Window) ; 


when others => null; 
end case; 


end if; 


if X_ Pending (Intel Display) > 0 then 
X_Lib.Events.X_Next Event (Intel Display, Intel_X Event); 
case Intel_X_Event.Kind is 
when others => null; 
end case; 


end if; 


if X_Pending (System_Status Display) > 0 then 
X_Lib.Events.X Next _Event (System _Status_ Display, 
System Status X Event); 
case System Status X Event.Kind is 
when button_press => Test System Status; 
when expose => Test_ System Status; 
when others => null; 
end case; 


end if; 
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tf TAB WPT. WET SPENDING = TRUS stien 


tae _wpt.Wpt_NextEvent (wptEvent, etype); 


case etype is 
when q@pt €venmtype@rtixrst ©. =] => null; 


-- iterate loop on Wpt_NextEvent error 


when tae_wpt.WPT_PARM_ EVENT => 
tae _wpt.Wpt_Extract_Context (wptEvent, user ptr); 
tae_wpt.Wpt_Extract_Parm (wptEvent, user _ptr.parm_name) ; 
tae _wpt.Wpt_Extract_Data (wptEvent, user ptr.datavm_ptr); 
tae_vm.Vm_Find (user _ptr.datavm_ptr, user_ptr.parm_name, 


user ptr.parm_ ptr); 


-- MENU PANEL EVENTS 


if tae wpt.”=” (user ptr, menu_info) then 
if s_equal (“track_button”, user _ptr.parm_name) then 
menu_track_button (user ptr); 
elsif s_ equal 
(“plots_menu”, user ptr.parm_name) then 
menu_plots_menu (user ptr); 
elsif s equal 
(“alerts_button”, user _ptr.parm_name) then 
menu_alerts_button (user ptr); 
elsif s_equal 
(“filters button”, user_ptr.parm_ name) then 
menu_filters_button (user_ptr); 


elsif s_equal 
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(“defaults button”, user _ptr.parm_name) then 
menu_defaults_ button (user ptr); 
elsif s_equal 
(“intel_button”, user _ptr.parm_name) then 
menu_intel_ button (user_ptr); 
elsif s_equal 
(“nav_button”, user _ptr.parm_name) then 
menu_nav_button (user ptr); 
elsif s_equal 
(“lists button”, user ptr.parm_name) then 
menu_lists_ button (user_ptr); 
elsif s_ equal 
(“coding_button”, user _ptr.parm_name) then 
menu_coding button (user ptr); 


end if; 


-- SORRY PANEL EVENTS 


elsif tae_wpt.”=" (user ptr, Sorry info) then 
if s_equal (“OK_Button”, user ptr.parm_name) then 
Sorry OK Button (user ptr); 
elsif s_equal (“OK_2”, user _ptr.parm_name) then 
Sorry OK_2 (user ptr); 


end if; -- END panel Sorry 


-- TRACK SELECT PANEL EVENTS 


elsif tae_wpt.”=" (user_ptr, trk_sel_info) then 
if s_equal (“NoName01”, user _ptr.parm_name) then 
trk_sel_NoName01 (user ptr); 


elsif s_equal 
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(“trk_sel_brg_ rng”, user _ptr.parm_name) then 
trk sel trkesel brqurng (user peri; 

elsif s_equal 
(“trk_sel_screen”, user_ptr.parm_name) then 
trk_sel_trk_sel_ screen (user ptr); 

elsif s_equal 
(“trk_sel_cancel”, user _ptr.parm_name) then 
trk_sel_trk_sel_cancel (user ptr); 

elsif s_equal 
(“trk_sel_lat_lon”, user_ptr.parm_name) then 
trk sel Crkm@sel lat lon: (user pre) 


end if; -- END panel trk_sel 


-- INPUT BEARING AND RANGE PANEL EVENTS 


elsif tae _wpt.”=" (user _ptr, sel_brg_info) then 
if s_equal 
(“tgt_bearing”, user ptr.parm_name) then 
sel_brg tgt_bearing (user ptr); 
elsif s_equal 
(“tgt_range”, user ptr.parm_name) then 
sel _brg_tgt range (user ptr); 
elsif s_equal 
(“sel_brg_canx_1”, user_ptr.parm_name) then 
sel_brg_ sel_brg_canx_1 (user ptr); 
elsif s_equal 
(“Enter Data”, user ptr.parm_name) then 
sel_brg Enter Data (user ptr); 
elsif s_equal 
(“sel_brg_canx”, user ptr.parm_name) then 


sel_brg_sel_brg_canx (user ptr); 
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end if; -- END panel sel brg 


-- ENTER GLOBAL POSITION PANEL EVENTS 


elsif tae _wpt.”=" (user ptr, glob_pos_info) then 


if s_equal (“lat_min”, user ptr.parm_name) 
glob _pos_lat_min (user ptr); 
elsif s_ equal 
(“lat _sec”, user _ptr.parm_name) 
glob pos_lat_sec (user ptr); 
elsif s_equal 
(“long_deg”, user ptr.parm_name) 
glob _pos_long_ deg (user ptr); 
elsif s_equal 
(“long_min”, user ptr.parm_name) 
glob_pos_long min (user ptr); 
elsif s_equal 
(“long_sec”, user ptr.parm_name) 
glob _pos_long_sec (user ptr); 
elsif s_ equal 
(“lat _deg”, user _ptr.parm_name) 
glob_pos_lat_deg (user ptr); 
elsif s_equal 
(“spacer”, user ptr.parm_name) 
glob _pos_spacer (user ptr); 
elsif s_equal 
(“Spacer 1”, user ptr.parm_name) 
glob _pos Spacer 1 (user ptr); 
elsif s_equal 
(““lat_dir”, user ptr.parm_name) 


glob_pos_lat_dir (user ptr); 
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then 


then 


then 


then 


then 


then 


then 


then 


then 


elsif s_ equal 
(“long_dir”, user_ptr.parm_name) then 


glob_pos_long_dir (user_ptr); 


endlit; -- END panel glob pos 


-- MODIFY TRACK PARAMETERS PANEL EVENTS 


elsif tae_wpt.”=”" (user_ptr, trk_mod_info) then 
if s equal 
(“trk_identity”, user _ptr.parm_name) then 
trk_mod_trk_identity (user ptr); 
elsif s equal 
(“trk_control”, user _ptr.parm_name) then 
trkimod trk vcontrol (user per); 
elsif s_equal 
(“trk_point_type”, user _ptr.parm_name) then 
trk_mod_trk_point_type (user ptr); 
elsif s_equal 
(“trk_ category”, user _ptr.parm_name) then 
trk_mod trk_category (user_ptr); 
elsif s_equal 
(“trk_position”, user _ptr.parm_name) then 
trk_mod_trk_position (user ptr); 
elsif s_equal 
(“trk_amp info”, user_ptr.parm_name) then 
trk_mod_trk_amp info (user ptr); 
elsif s_ equal 
(“trk_name”, user _ptr.parm_name) then 
trk_mod_trk_name (user ptr); 


elsif s_equal 
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(“trk course”, user ptr.parm name) then 
trk_mod_trk_course (user ptr); 
elsif s_equal 
(“trk_speed”, user _ptr.parm_name) then 
trk_mod_trk_speed (user ptr); 
ersaies equal 
(“trk_height”, user ptr.parm_name) then 
trk_mod trk_height (user ptr); 
elsif s_equal 
(“trk_mod_enter”, user ptr.parm_name) then 
trk_mod_trk_mod_enter (user ptr); 
elsif s_ equal 
(“trk_plat_class”, user_ptr.parm_name) then 
trk_moa@gexk plat ciass (user ptr); 


end if; -- END panel trk_mod 


-- CONFIRM DELETE PANEL EVENTS 


elsif tae wpt.”=” (user ptr, confirm_info) then 
Li smequal 
(“conf_continue”, user _ptr.parm_name) then 
confirm _conf_continue (user ptr); 
elsif s_equal 
(“conf_cancel”, user ptr.parm_name) then 
confirm_conf_cancel (user ptr); 


end 1£; -- END panel confirm 


-- CONFIRM EXIT PANEL EVENTS 


elsif tae_wpt.”=”" (user ptr, exit_ok_info) then 


if s_equal 
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(“exit continue”, user_ptr.parm_name) then 
abort Monitor Update Intervals; 
Integration System. Shutdown; 

Write Track_Archives To Text_File; 
Write Filter_Archives_ To Text File; 
abort Integration System; 
Exit; 
-- exit_ok_exit_continue (user_ptr); 
elsif s_equal 
(“exit cancel”, user_ptr.parm_name) then 
exit _ok_exit_cancel (user_ptr); 


end if; 


-- INPUT ALERT PARAMETERS PANEL EVENTS 


elsif tae _wpt.”=" (user ptr, alrt_sel_info) then 
if s_equal 
(“cpa_alrt_range”, user _ptr.parm_name) then 
alirt Sel cCpamalrt srange (USseriper), 
elsif s_equal 
(“alrt_canx_1”, user _ ptr.parm_name) then 
alizemselealrt scanx.] “(user ptr); 
elsif s_equal 
(“enter data”, user _ptr.parm_name) then 
alztesel enter data (user ptr); 
elsif <s equal 
(“alrt_canx_2”, user ptr.parm_ name) then 
alrt sel alrt_canx 2 (user ptr); 


end if; 


-- EQUIPMENT SELECTION PANEL EVENTS 
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elsif tae wpt.”=”" (user_ptr, eqpt_sel info) then 


if s_ equal 
(“gps_sel”, user_ptr.parm_name) 
eqpt_sel_gps_sel (user ptr); 
elsif s_equal 
(“radar_sel”, user _ptr.parm_name) 
eqpt_ sel _ radar _sel (user_ptr); 
elsif s_equal 
(“link_sel”, user_ptr.parm_name) 
eqpt_sel_link_sel (user ptr); 
elsif s_equal 
(“gyro sel”, user_ptr.parm_name) 
eqpt_sel_gyro_ sel (user ptr); 
elsif s_ equal 
(“fath_sel”, user _ptr.parm_name) 
eqpt_sel_fath_sel (user ptr); 
elsif s_equal 
(“pit _sel”, user _ptr.parm_name) 
eqpt_sel_ pit _sel (user_ptr); 
elsif s_equal 
(“enter data”, user _ptr.parm_name) 
eqpt_ sel_enter data (user_ptr); 


end if; 


-- TITLE PANEL EVENTS 


elsif tae_wpt.”=”" (user_ptr, title info) then 


if s_equal 


then 


then 


then 


then 


then 


then 


then 


(“exit _system”, user _ptr.parm_name) then 


title _exit_system (user ptr); 
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end if; -- END panel title 


-- FILTER SELECT EVENTS 


elsif tae_wpt.”=” (user_ptr, filt_sel_info) then 
if Ss equal 
(“canx filter”, user _ptr.parm_name) then 
filt_sel_canx_ filter (user_ptr); 
elsif s_equal 
(“type select”, user ptr.parm_name) then 
filt sel type select (user ptr); 
elsif s_ equal 
(“filter complete”, user _ptr.parm_name) then 
filt sel filter complete (user ptr); 
elsif s_equal 
(“add filter”, user _ptr.parm_name) then 


filt_sel_add_ filter (user ptr); 


end if; =-sEND panel filt set 
~~ RANGE FILTER EVENTS 
elsif tae wpt.”=" (user ptr, rng filt info) then 
if s_ equal 


(“rng_type”, user ptr.parm_name) then 
rng_filt_rng_ type (user ptr); 
elsif s_equal 
(“rng_limit”, user ptr.parm_name) then 
rng_filt_rng_ limit (user ptr); 
elsif s equal 
(“hgt_limit”, user _ptr.parm_name) then 


rng_filt_hgt_limit (user _ptr); 
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elsif s_equal 
(“operator”, user ptr.parm_name) then 
Eng Elewoperalor (User ptr), 
elsif s_equal 
(“complete”, user _ptr.parm_name) then 
rng _filt complete (user ptr); 
elsif s_equal 
(“cancel”, user _ptr.parm_name) then 
rng_filt_cancel {user ptr); 


end if; -- END panel rng filt 


-- CATEGORY FILTER EVENTS 


elsif tae_wpt.”=”" (user ptr, cat_filt_info) then 
if s_equal 
(“cancel”, user _ptr.parm_name) then 
cat_filt_cancel (user_ptr); 
elsif s_equal 
(“cat_type”, user _ptr.parm_name) then 
cat_filt_ cat_type (user ptr); 
elsif s_equal 
(“operator”, user ptr.parm_name) then 
cat_filt_operator (user ptr); 


end if; -- END panel cat_filt 


eo LEDENTITY FILTER EVENTS 


elsif tae_wpt.”=" (user_ptr, id _filt_info) then 
if s_equal 
(“id type”, user ptr.parm_name) then 


id_filt_id_type (user ptr); 
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elsif s equal 
(“cancel”, user _ptr.parm_name) then 
id wriit cancel (user ptr); 
elsif s_equal 
(“Operator”, user ptr.parm_name) then 
id filt Operator (user ptr); 


end if; -- END panel id filt 


=> INTIEBRCEET EVENTS 


elsif tae_wpt.”=" (user ptr, int_cept_info) then 
if s equal 
(“method”, user ptr.parm_name) then 
int _cept_method (user ptr); 
elsif s_ equal 
(“time”, user ptr.parm_name) then 
int _cept_time (user ptr); 
elsif s_equal 
(“speed”, user ptr.parm_name) then 
int_cept_ speed (user ptr); 
elsif s equal 
(“compute”, user _ptr.parm_name) then 
int_cept_compute (user ptr); 
elsif s_equal 
(“cancel”, user _ptr.parm_name) then 
int_cept_ cancel (user ptr); 
end if; -- END panel int_cept 
else 
null; 
-- Or raise an exception, but compiler warns if no exit 


end if; 


234 


Seta Lb BVENTS 26 LUB 
when tae wpt.WPT_ FILE EVENT => 
text_io.put_line (“STUB: Event WPT_FILE EVENT”); 
== TAE TIMEOUT EVENT STUB 
when tae _wpt.WPT_ TIMEOUT EVENT => 
text_io.put_line (“STUB: Event WPT_TIMEOUT EVENT”) ; 
-- MISC TAE EVENTS 
when tae wpt.WPT_WINDOW_EVENT => null ; 
when tae wpt.WPT_HELP EVENT => null ; 
when tae _wpt.WPT_INTERRUPT_EVENT => null ; 
when OTHERS => null; 
end case; 
end if; 
end loop; 


end menu; 
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APPENDIX G 


LCCDS USERS MANUAL 


A. STARTING THE SYSTEM 


To invoke the system from the command line simply type Iccds.out at any 
command prompt. X11R4 and a window manager (such as Open Look or TWM) must be 
running prior to calling LCCDS. 

The program will start by opening all the display windows, the Menu bar and the 
System Information box. The display windows can then be moved to any location desired 
by the user by "dragging" the display box with the mouse. The Menu bar and the System 
Information box are static and cannot be moved. 

The prototype model pre-loads an ownship track and 3 target test tracks for 
demonstration purposes. These test tracks can be modified or deleted as the user desires. 


The ownship track may be modified, but cannot be deleted. 


B. OPERATING THE SYSTEM 


1. Tactical Plot Display Functions 
The Tactical Plot display window, shown in Figure G-1, contains a number of 


information items, and a graphical representation of all tracks currently in the system. 
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Each track in the system will be displayed as a standard GOTS symbol with a “speed 
leader", or line, emanating from the center of the symbol denoting true course and speed. 
The system track number will be shown in a box directly below the symbol. 

Most user interaction with the system will occur in this window. There are 2 


interactive functions built into this window: 


¢ Track Selection 
¢ Display Range Scaling 


a. Track Selection 
To select an existing track, move the mouse cursor over the graphical 
object and press any mouse button. The display will immediately update and a "hook", or 
circle, will appear surrounding the object. All information currently available in the 
system concerning the hooked object will appear in the Track Information and 
Intelligence displays, shown in Figures G-2 and G-3 respectively. 
b. Range Scaling 
The upper left corner of the Tactical Plot display contains a button pair 
labelled "DOWN" and "UP". Moving the mouse cursor to either of these buttons, and 
pressing any mouse button will immediately update the Tactical Plot display and either 
halve or double the range representation of the screen, depending on the button selected. 
The Scale information item above the buttons will reflect the current range scale of the 


display screen. 
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2. Menu Bar Functions 
In the current configuration there are 5 menu pulldown buttons with active 


functions: 


¢ Tracks Button 
¢ Alerts Button 

¢ Defaults Button 
Filters Button 
Nav Button 


¢ ¢ 


Selection of an inactive menu function will result in the display of a dialog box 
message in the upper right corner of the display, informing the user that the item selected 
was included for future development. 

a. Track Functions 

The options available in this pulldown option include adding a Track, 
deleting a hooked Track and modifying a hooked Track. Selection of the latter 2 options 
without a track actively hooked will result in no action. 

Selection of the Add a Track option results in a dialog box, shown in 
Figure G-4, opening asking the user for the add method desired. The methods available 
are add by bearing and range or add by global position. Additional dialog boxes, shown 
in Figures G-5 and G-6 will appear to accept the user input for those methods. 

Selection of the Delete the Hooked Track option will, if a track is 
currently hooked, display a dialog box asking the user to confirm the deletion. If the 
"Continue" box is selected, the Track will be deleted on the next screen update. The 


"Cancel" option will dismiss the dialog box with no action taken. 


238 


Selection of the Modify the Hooked Track option will result in the dialog 
box, shown in Figure G-7, opening to allow the user to input the attribute changes 
desired. Any changes made will take effect immediately and will be displayed on the 
next screen update. The "Enter Data” button will dismiss the dialog box and return the 
user to the normal display. 

b. Alerts Functions 

The 3 pulldown options, Visual Alerts Only, Audio and Visual Alerts and 
Disable all Alerts will take the appropriate action immediately upon selection. The Alerts 
information item in the upper night corner of the Tactical Plot will reflect the current 
status of alerts. The default configuration is both audio and visual alerts enabled, with 
any alert conditions detected by the system shown in the Alerts display box in Figure 


G-8, accompanied by a "beep" at every alert detection. 
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Figure G-1. Tactical Plot Display Window 
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Figure G-2. Intelligence Display Window 
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Figure G-3. Track Information Display Window 
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Figure G-4. Add a Track Dialog Box 
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Figure G-5. Enter Bearing and Range Data Entry Box 
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Figure G-6. Enter Global Position Data Entry Box 
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Figure G-7. Modify Track Parameters Data Entry Box 
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c. Filters Functions 
Selection of either option within this pulldown will immediately discard 
any display filter conditions set by the user. 
d. Defaults Functions 
(1) Set Display Filters. Selection of the Set Display Filters option within 
this pulldown will present the user with the dialog box shown in Figure G-8. 

The set filter operation is a recursive routine allowing the user to 
define multiple atomic filters within a single composite filter object. An atomic filter is 
defined on the attributes of range, height, category or identity. A series of data input 
boxes, shown in Figures G-9 through G-11 allow the user to define a single atomic filter, 
always returning the user to the dialog box at the completion of each data entry item. 

Selection of the Add Filter Element button in the dialog box will 
add the atomic filter to the composite filter object and reset the atomic entry routine, 
allowing the user to define another atomic filter. 

Selection of the Atomic Filter Completed button will close the filter, 
and return the user to the main display. Any further filter additions can be made by 
reinitializing the process. 

All system filters can be cleared immediately by selection of either 
option within the Filters menu pulldown. 

(2) Set Alert Parameters. Selection of the Set Alert Parameters pulldown 


item will present the user with the data entry box shown in Figure G-12. Input of a value 
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into the entry box and the selection of Enter Data will immediately apply the new CPA 
alert value into the system. Any Track with a CPA range less than the alert range will 
generate an Alert in the Alerts display window shown in Figure G-13, provided the 
Alerts are not disabled by an Alerts menu button action. 

(3) Set External System Inputs. Selection of this option will present the 
user with the checkbox option window shown in Figure G-14. Selection of an item will 
place an X into the checkbox, signifying the activation of that piece of equipment's inputs 
into the system. Conversely, the deselecting of a checked box will remove the X and 
signify the deactivation of that equipment's inputs into the system. 

The Enter Data button will dismiss the window and make the 
necessary system modifications. The System Status display window, shown in Figure 


G-15, will reflect any changes made to the system inputs on the next display update. 
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Figure G-8. Build an Atomic Filter Dialog Box 
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Figure G-9. Build a Distance Filter 
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Build a Track Category Filter 
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Figure G-10. Build a Track Category Filter 
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Figure G-11. Build a Platform ID Filter 
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Figure G-12. Select Alert Parameters 










Figure G-13. Alerts Display Window 
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Figure G-14. Equipment Selection Options 
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Figure G-15. System Status Display Window 
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e. Nav Functions 

The only active function within this menu pulldown is Plot an Intercept. 
A Track must be hooked prior to activating this function or no action will occur. 
Selection of this option will present the user with a data entry box, shown in Figure 
G-16, allowing the user to compute an Intercept to the hooked track by 2 different 
methods. 

(1) Time to Station Method. This, the default method, will compute an 
intercept to the hooked track based on time. Entering of the number of minutes to 
intercept by the user, and the selection of the Compute button, will return the course and 
speed necessary to effect the intercept in the desired interval. All intercept 
recommendations will appear in the Recommendations display window shown in Figure 
G-17. 

(2) Speed to Station Method. This method will take a projected speed 
input from the user and return the course necessary for the intercept and the estimated 
time the intercept will take place. 

The Compute button will initiate all computations. The Cancel button 
will return the user to the default display. Any active recommendation within the 
Recommendations Display Window can be dismissed by moving the cursor to the 


window and clicking any mouse button. 
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Figure G-16. Compute an Intercept 
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Figure G-17. Recommendations Display Window 
C. EXITING THE SYSTEM 


An Exit System pcan is provided on the System Information window shown in 
Figure G-18. Selection of the button will present the user with the confirmation dialog 
box shown in Figure G-19. Selection of the Continue option within the dialog box will 
shut the system down and write all Track Histories, Filter Histories and Observations to 
text files within the current sub-directory. Selection of the Cancel option will result in 


dismissal of the dialog box and no system action taking place. 
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Figure G-18. System Information Window 
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Figure G-19. Exif Confirmation Dialog Box 
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